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IDENTIFICATION 


PRODUCT CODE: AC-F138C-MC 

PRODUCT NAME: CJKDACO KTF11=AA MEMORY MANAGEMENT DIAGNOSTIC 
DATE: NOV-1979 

MAINTAINER: DIAGNOSTIC PROGRAMMIMG 


THE INFORMATION y THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES 
eae ee FOR ANY ERRURS THAT MAY APPEAR IN THIS 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE 
PURCHASER UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM 
AND CAN BE COPIED (WITH INCLUSION OF DIGITAL*S COPYRIGHT NOTICE) 
ONLY FOR USE IN SUCH SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED 
IN WRITING BY DIGITAL. 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
FOR THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT 
THAT IS NOT SUPPLIED BY DIGITAL. 


COPYRIGHT (C) 1979 BY DIGITAL EQUIPMENT CORPORATION 


SEQ 0002 










PROGRAM HISTORY 


DATE REVISION REASON FOR REVISION 
12=JAN-79 4 FIRST RELEASE 
JUNE =79 B peytee M FORMPA an ehh ERROR 


INFORMATION STORED IN RO,R2. THIS 
REVISION SAVES THE ReGist ERS ON 
ENTRY TO THE ROUTINE AND RESTORES 


THEM ON EXIT 
NOVEMBER-79 C CORRECTIONS WERE MADE TO THE MULTI- 
TESTER SUPPORT CODE. ALSO CODE 


WAS 
ADDED TO ALLOW PROGRAM OPERATION WHILE 
LINE CLOCK IS INTERRUPTING. ~ 


ae 


2.0 


3.0 


4.0 


5.0 


TABLE OF CONTENTS 
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REQUIREMENTS 

RELATED DOCUMENTS AND STANDARDS 
PRELIMINARY PROGRAMS 
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DURES 
OPERATIONAL SWITCH SETTINGS 
LOADING THE SWITCH REGISTER 
EXECUTION TIMES 


INF ORMAT 1 ON 
ERROR REPORTING PROCEDURES 
INTERPRETING ERROR REPORTS 
SAMPLE ERROR REPORT 


CELLANEOUS INFORMATION 
ACT/APT/XXDP COMPATABILITY 
END-OF -PASS MESSAGE 
T-BIT TRAPPING 
POWER FAILURE HANDLING 
PHYSICAL BUS ADDRESS CONSTRUCTION 
RELOCATION THROUGHOUT MEMORY 


DESCRIPTION 

SUBROUTINES USED BY THIS PROGRAM 
PROGRAM LISTING 

USING THE PROGRAM TO DIAGNOSE A FAULT 
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SEQ 0003 


1.0 


2.0 


PROGRAM INFORMATION 


THIS PROGRAM WAS DESIGNED USING A_'BOTTOM UP"’ APPROACH 
STARTING WITH THE SMALLEST SEGMENT OF MEMORY MANAGMENT 
LOGIC POSSIBLE AND BUILDING TO COVER ALL OF THE LOGIC. 
THE DIAGNOSTIC ~ 9 PROVIDE ENOUGH INFORMATION SUCH THAT 
BY DEDUCTION, THE FAILURE CAN BE ISOLATED TO A SMALL 
SEGMENT OF THE MEMORY MANAGEMENT LOGIC. 


THE PROGRAM BEGINS BY TESTING SOME OF THE INTERNAL CPU 
DATA er ADDRESS PATHS AND ADDRESS DETECTION LOGIC, THEN 
WORKS OUTWARD THROUGH THE MEMORY MANAGEMENT REGISTERS. 
AFTER THE REGISTERS ARE FOUND TO BE U ee. RELOCATION 
(CONSTRUCTION OF PHYSICAL ADDRESSES FROM A VIRTUAL ADDRESS 
AND THE ASSOCIATED PAR/PDR INFORMATION) IS ae re FOLLOWED 
BY TESTING OF THE ABORT AND STATUS SEGMENTS OF LOGIC. 
FINALLY, CHECKS OF SPECIAL ABORT SEQUENCES AND TESTING OF 
THE MFPI/MTPI INSTRUCTIONS ARE DONE. 


REQUIREMENTS 


A “py: PROCESSOR WITH A MINIMUM OF 16K OF MEMORY 

AND A CONSOLE TERMINAL ARE REQUIRED TO RUN THE PROGRAM 
UNLESS THE PROGRAM IS RUNNING UNDER APT OR ACT IN WHICH 
CASE THE CONSOLE TERMINAL IS NOT NECESSARY. 


RELATED DOCUMENTS AND STANDARDS 


1. ACT11/XXDP_ PROGRAMMING SPECIFICATION 

e. STANDARD APT SYSTEM TO A PDP11 DIAGNOSTIC INTERFACE 
. & DIAGNOSITC ENGINEERING STANDARDS AND CONVENTIONS 
4. PDP11 MA MAINDEC SYSMAC PACKAGE 

Se XXDP USER'S MANUAL 


_ PRELIMINARY PROGRAMS 


BEFORE THIS MEMORY MANAGEMENT was IS RUN, THE 
FOLLOWING CPU DIAGNOSTIC SHOULD BE R 


CJKDB DCF11-AA CPU TESTS 
ALSO, ONE OF THE MAIN MEMORY DIAGNOSTICS SHOULD BE RUN 
TO SCAN AT LEAST THE FIRST 16K TO SEE THAT A PROGRAM 
CAN BE EXECUTED. 


OPERATING INSTRUCTIONS 


SEQ 0004 


2.1 


2.2 





LOADING PROCEDURES 


THE PROGRAM IS SUPPLIED ON THE "hee Fuate LOAD MEDIA. 
REFER TO THE XXDP USER'S MANUAL FOR FURTHER INFORMATION. 
FOR USE WITH ACT OR APT, REFER TO THEIR RESPECTIVE 
DOCUMENTS. THE PROGRAM CAN ALSO BE DIRECTLY LOADED 
USING THE ABSOLUTE LOADER AND THE BINARY PAPER TAPE. 


STARTING PROCEDURES 


WILL BE USED AS THE SOFTWARE DISPLAY REGISTER). IN THAT CASE 
THE PROGRAM WILL ASK FOR THE INITIAL SWITCH REGISTER 
+ ig BY ag Bo XXXXXX  NEW= AFTER TYPING 

THE NAME OF THE PROGRAM ag gee = THE OCTAL CONTENTS OF 
LOCATION 176)" (SEE SECTION 2.4 


- a 


SwW15 100000 HALT ON ERROR 
THIS SWITCH WHEN SET WILL HALT 
THE PROCESSOR WHEN AN ERROR IS 
DETECTED AFTER THE ERROR MESSAGE 
HAS BEEN TYPED. PRESSING CONTINUE 
WILL RESUME TESTING (SEE SECTION 
3.1 ABOUT LOADING THE SWITCH REG 

BEFORE CONTINUING). 


SwW14 040000 LOOP ON TEST 

THIS oy WHEN SET WILL 
CAUSE THE PROGRAM TO LOOP 
THE CURRENT SUBTEST. 


Sw13 020000 INHIBIT ERROR TYPEOUTS 
THIS SWITCH WHEN SET WILL 
INHIBIT THE TYPING OF ERROR 
MESSAGE 


st 010000 INHIBIT TRACE TRAP 
THIS SWITCH WHEN SET WILL 
INHIBIT T-BIT TRAPPING WHICH 
NORMALLY TAKES PLACE DURING 
EVERY OTHER PASS STARTING 
WITH THE THIRD PASS. 


Sw11 004000 INHIBIT SUBTEST ITERATIONS 
THIS SWITCH WHEN SET INHIBITS 
ITERATIONS OF EACH SUBTEST AFTER 
THE FIRST PASS. IF THIS SWITCH 
IS NOT SET, EACH SUBTEST IS RUN 
200. TIMES. 











G 1 
BEL’ ON ERROR 
THIS SWITCH WHEN SET WILL RING 
THE CONSOLE TERMINAL BELL WHEN 
AN ERROR HAS BEEN DETECTED. 


ERROR 

THIS SWITCH WHEN SET WILL 

CAUSE THE PROGRAM TO LOOP ON THE 
FIRST FAILURE WHICH IS ENCOUNTERED 
EVEN IF THE FAILURE IS INTERMITTANT 


000400 TEST IN SWR<7:0> 
THIS SWITCH WHEN SET W 


Ss 
IN BITS 7-0 OF THE SWITCH REG. 
LOADING THE SWITCH REGISTER 


TO LOAD THE SOFTWARE SWITCH REG. WHILE THE PROGRAM IS 
RUNNING, A CONTROL G (*G) SHOULD BE TYPED ON THE CONSOLE 
TERMINAL. (THE "‘SCOPE'’ AND ‘ERROR’’ ROUTINES CHECK TO SEE 

iF A “G HAS BEEN TYPED.) THE ORIGINAL VALUE OF THE SOF TWARE 
SWTICH REG. WILL BE REQUESTED AS MENTIONED IN SECTION 2.2. 


IN RESPONSE TO A “G OR AT THE BEGINNING OF THE PROGRAM, THE 
PROGRAM WILL TYPE: 


SWR = XXXXXX NEW = 


WHERE *"XXXXXX'' IS THE CURRENT OCTAL CONTENTS OF LOC. 176. 
THE OPERATOR MAY THEN TYPE ANY ONE OF T : 
XXXXXX<CR> ONE 
CARRIAGE og py a ye WILL BE LOAD 
AS THE NEW VALUE FOR THE SWITCH REG. 
<CR> + a SCR LEAVES THE SWITCH REG. 
XXX*U A _CONTROL-U (*U) WILL CAUSE ALL OF THE 
DIGITS bing SO FAR TO BE IGNORED. 
*C WILL CAUSE THE PROGRAM TO TYPE THE PRESENT 
TEST AND PASS NUMBERS, REQUEST A NEW VALUE 
FOR THE SWITCH REG., AND JUMP TO THE END- 
O THE PROGRAM WILL *. 1 pigliend 


OR AN OCTAL DIGIT WILL CAUSE THE PROGRAM 
TO TYPE A ‘*?<CRLF>'' AND REACT AS THOUGH A 
“U HAD BEEN TYPED. 


RECOGNITION OF A “G MAY BE HAMPERED BY 
EXECUTION OF A COUPLE ‘RESET'’ INSTRUCTIONS 
WITHIN THE PROGRAM. 





EXECUTION TIMES 


THE RUN TIME FOR A SINGLE PASS WITH NO ITERATIONS 
OR TRACE TRAPPING IS APPROXIMATELY 5 SECONDS. 


THE RUN TIME FOR A SINGLE PASS WITH ITERATION 
AND TRACE TRAPPING ENABLED IS APPROXIMATELY 39 SECONDS. 


ERROR INFORMATION 


IF AN ERROR IS DETECTED, THE PROGRAM WILL TRAP TO THE 
ERROR HANDLING ROUTINE (SERROR). THE VALUE OF BITS 
15,13,10, AND 9 IN THE SWITCH REGISTER ARE CONSIDERED 
IN REPORTING AN ERROR (SEE SECTION 2.3). gp 

ERROR INFORMATION WILL BE TYPED UNLESS SW13 = 


IF SW1S = 1, THE PROCESSOR WILL HALT AFTER THE ERROR IS 

yo ge IF THE ogi ge OF THE SOFTWARE SWITCH REGISTER 
ARE TO BE CHANGED, A “G SHOULD BE TYPED BEFORE PRESSING 
"*CONT INUE’’ TO RESUME TESTING. 


IF SW9 = 1 (LOOP ON ERROR), THE PROGRAM WILL GO TO THE 
ADDRESS CONTAINED IN LOCATION “SLPERR''. AFTER REPORTING 
THE ERROR. ‘‘SLPERR’’ IS SET BY EACH ‘'SCOPE’’ CALL AND IS 
SET DIRECTLY DURING SOME SUBTESTS TO pg oy THE SMALLEST 
LOOP FOR LOOPING ON ERROR. IF SW9 = 0, THE PROGRAM WILL 


RETURN TO THE INSTRUCTION FOLLOWING THE ERROR CALL. 
(SEE SECTION 5.3 FOR MORE ON ‘LOOP ON ERROR"'). 


INTERPRETING ERROR REPORTS 


EVERY ERROR REPORT TYPES THE NUMBER OF THE TEST IN WHICH 
THE ERROR TOOK PLACE (TESTNO) AND THE LOCATION OF THE 

ERROR CALL (ERRORPC). THESE TWO VALUES PINPOINT THE 

PLACE _IN THE CODE THAT THE ERROR OCCURRED. BY REFERRING 

TO THE PROGRAM LISTI THE OPERATOR CAN THEN READ THE 
COMMENTS ASSOCIATED WITH THAT PARTICULAR ERROR AND SUBTEST. 
A DESCRIPTION OF THE TEST FOUND IN THE PROGRAM LISTING 

WILL ALSO PROVIDE THE OPERATOR WITH INFORMATION ON THE LOGIC 
AND FUNCTIONS BEING TESTED. 


EVERY ERROR REPORT ALSO TYPES AN ERROR MESSAGE 
GIVING A VERBAL DESCRIPTION OF THE ERROR THAT HAS 
BEEN DETECTED. 


BY USING THE COMMENTS AND TEST DESCRIPTION FOUND IN 
THE PROGRAM LISTING TO DETERMINE WHAT FUNCTION OR 
LOGIC WAS BEING TESTED, THE OPERATOR CAN THEN REFER 
TO THE ENGINEERING DRAWINGS TO ISOLATE THE PROBABLE 
CAUSE FOR THE FAILURE. 


SAMPLE ERROR REPORT 


BELOW IS AN EXAMPLE OF AN ERROR WHICH COULD HAVE 
OCCURRED DURING EXECUTION OF THE PROGRAM: 


MEM. MGMT. REG. BITS NOT SET yt 

REGISTR WROTE READ READ= (BINARY) 

aboness (OCTAL) COCTAL) Zoe 1Ore Ore 2818 TESTNO ERRORPC 
77572 040000 060000 0110000000000000 000012 022060 


WE SEE THAT THE ERROR OCCURRED Ad TEST | AT LOACTION 
022060. THE 'REGISTR ADDRESS'' T US_T W 
TESTING TETING, MANAGEMENT 'S STATUS RGISTER 0 


TO SET BIT 14 gh 

READ IT BACK WE R 

STUCK AT ‘1°’ OR IT IS GETTING SET WHEN BIT 14 IS SET 
TO *1'', ERROR REPORTS BEFORE AND AFTER THIS ONE COULD 
TELL US WHICH IS THE CASE. 


MISCELLANEOUS INFORMATION 


THE PROGRAM IS FULLY ACT AND APT COMPATABLE 
AND IS SUPPORTED UNDER THE XXDP PACKAGE. 


END-OF -PASS MESSAGE 


AT THE END OF EACH PASS OF THE PROGRAM THE PASS NUMBER 
AND TOTAL NUMBER OF ERRORS SINCE THE LAST END-OF-PASS ARE 
REPORTED IN THE END-OF=PASS MESSAGE. FOR EXAMPLE: 


END OF PASS #2 TOTAL ERRORS SINCE LAST REPORT 0 
Hong WOULD INDICATE THAT PASS TWO WAS JUST tae 
AND NO ERRORS WERE DETECTED DURING THAT PASS. BOTH 
THE PASS NUMBER AND NUMBER OF ERRORS ARE DECIMAL NUMBERS. 


T-BIT TRAPPING 


THE Py « Si (BIT 4)_IN THE PROCESSOR STATUS WORD IS SET 

BY RTI'' IN THE END-OF-PASS ROUTINE FOR BS apd OTHER PASS 
BEGINNING WITH THE THIRD PASS (PASSES 3,5,7,9...). T-BIT 
TRAPPING CAN BE ee ee ey SETTING BIT i2°= 1 IN THE SWITCH 
REGISTER (SEE SECTION 2.4 


POWER FAILURE HANDLING 


IF A POWER FAIL OCCURS (FOLLOWED BY A POWER UP), THE 
MESSAGE “POWER FAILURE~RESTARTING'’ IS TYPED OUT AND 
THE PROGRAM WILL RESTART EXECUTION AT ‘RESTRT:*' 





4.5 


4.6 


PHYSICAL BUS ADDRESS CONSTRUCTION 


BELOW IS A SIMPLIFIED DIAGRAM OF HOW THE MEMORY 
MAMAGEMENT LOGIC CONSTRUCTS A PHYSICAL BUS ADDRESS 
USING THE VIRTUAL ADDRESS AND THE PAGE ADDRESS i he 
THE PAGE DESCRIPTOR REGISTER SELECTED WILL CONTAIN THE 

PAGE EXPANSION, LENGTH, AND ACCESS INFORMATION. 


12 11 10 09 08 07 06 05 04 03 02 01 00 


I 
(ADDED TO) 
15_ 14 13 12 11 10 09 08 07 06 05 04 03 02 01 00 I 
Oooo 7001TF1 00000 | PAR** 
I I 
I I 
V 


V 
21 20 19 18 17 16 15 14 13 12 11 10 09 08 07 06 05 04 03 02 01 00 


yocoooo0o0tt100 00 00 0 1 1 1 +1 +1 OF PBA 


*= VBA BITS <15:13> SELECT THE APPROPRIATE PAR AND PDR 
**= PSW MODE ae 01 (BIT 15) SELECTS THE USER (= 1) OR 
KERNEL (=0) SET OF PAR'S/PDR'S 


RELOCATION THROUGHOUT MEMORY 


A FEATURE WAS ADDED i ALLOW THE CONSTRUCTION OF PHYSICAL 

BUS ADDRESSES ABOVE THE NORMAL 16K LIMIT. THE ys 

OF THE LOCATION SMADR1 IN THE E-TABLE WITH ONE OF 

FOLLOWING CONSTANTS WILL ACCESS LOCATIONS BETWEEN Me AND 7600 
OF EACH 4K GROUP UP TO THE MAXIMUM MEMORY ON THE SYSTEM. 

THE FIRST LOCATION OF EACH BLOCK(32 yt IS WRITTEN AND READ. 
SEE TEST #24 IN THE LISTING FOR MORE DETAILS. 


CONSTANT MAX. MEM. CONSTANT MAX. MEM. CONSTANT MAX. MEM. 
0 OR 600 16K 3200 56K 5600 96K 

3400 60K 6000 100K 
1200 24K 3600 64K 6200 104K 
1400 2 68K 6400 108K 
1600 32K 4200 72k 6600 112k 

400 76K 7000 116K 

2200 40k 600 80K 7200 120k 
2400 44k 5000 84K 7400 124K 
2600 48k 5200 88K 


SEQ 0009 





PROGRAM DESCRIPTION 


SUBROUTINES USED BY THIS PROGRAM 


FOLLOWING IS A a a THE SUBROUTINES AND HANDLERS USED 
THIS ARE NOT PROVIDED BY THE ‘‘SYSMAC 
DETAILS | OF THE SUBROUTINES UNIQUE TO ica TO 
PROGRAM MAY BE FOUND IN THE PROGRAM LISTING. REFER T 
aes ae. DOCUMENT AND PROGRAM LISTING FOR THE OTHER 
iN 


1. TURN OFF T=BIT AND SAVE CURRENT PSW 

2. TURN ON T=BIT AND RESTORE PREVIOUS PSW 

3. SET ALL WRITEABLE BITS IN ALL PAR/PDR'S 

4. READ AND COMPARE KERNEL AND USER PAR/PDR'S 
5. CONVERT VIRTUAL ADDRESS TO PHYSICAL ADDRESS 


PROGRAM LISTING 


A TABLE OF CONTENTS APPEARS AT THE BEGINNING OF pe LISTING 
WHICH CONTAINS THE NAMES OF EACH SECTION, SUBTEST, AND 
1 ta AND THE LINE NUMBERS CORRESPONDING TO THE START OF 


FOLLOWING THIS SECTION OF DOCUMENTATION IS THE ACTUAL 
PROGRAM LISTING COMPLETE WITH SUBTEST DESCRIPTIONS AND 
**COD ING COMMENTS" 

USING THE PROGRAM TO DIAGNOSE A FAULT 


WHEN AN ERROR OCCURS, ONE OF THE THINGS THAT'S IMPORTAN 
TO NOTE IS WHAT PASS THE ERROR OCCURRED 


NUMBER IS ODD AND I 
T-BIT SENSITIVE. TRY RUNN 
12 OF THE SWITCH SS 


IF THE NUMBE GR THE 
ERROR MAY BE ITERATION SENSITIVE. TRY RUNNING THE PROGRAM 
AGAIN WITH BIT 11 OF THE SWITCH REG. EQUAL TO ‘l'' TO INHIBIT 
ITERATIONS. THESE HINTS SHOULD HELP YOU DETERMINE WHAT MAKES 
THE MACHINE FAIL AND WHEN. 


IF YOU HAVE BEEN RUNNING WITH BIT 15 OF THE SWITCH 
ne’ coe TO ‘0°’, THEN YOU ~g ABLE TO LOOK 


DIAGNOSING. A FAULT IN AN EARLIER TEST MAY RESULT IN 
ERRORS DURING LATER TESTS tly + GIVE YOU MOR 

CLUES ABOUT THE NATURE OF THE FAULT. NOW USE THE METHOD 
OUTLINED IN SECTION 3.2 FOR EACH ERROR TO GATHER AS 
MUCH INFORMATION AS POSSIBLE. 


NOW TO TEST YOUR IDEAS ON THE CAUSE OF THE FAILURE, 

YOU MAY WANT TO SCOPE Mig one CONDITION. SET BIT 09 
OF ye SWITCH REG. EQUAL TO ‘I’ TO LOOP ON THE ERROR. 
FOR AN EVEN TIGHTER gt POOP THE ERROR CALL CAN BE 
py WITH A BRANCH (REFER TO COMMENTS BY ERROR CALLS 
IN THE PROGRAM LISTING). 


OR YOU COULD LOOP ON THE TEST BY EITHER SETTING BIT 1 
OF THE SWITCH REG. EQUAL TO ‘I’ OF BY SETTING BIT :n OF THE 
QUAL _TO ‘l'* AND THEN SETTING THE TEST NUMBER 
-00 OF THE SWITCH REG. YOU WILL PROBABLY WANT TO 
apg A eer TYPEOUTS BY SETTING BIT 13 OF THE SWITCH REG. 


SEQ 0011 





CJKDACO KTF11=AA MMU DIAG MACY11 we ie 12=MAR=80 08:00 


CJKDAC.P11 12-MAR~80 07:56 E OF CONTENTS SEQ 0012 
20 OPERAT IONAL Prone SETTINGS 
21 BASIC gt A 
22 MEMORY MANAGEMENT DEFINITIONS 
258 TRAP_CATCHER 
(1) STARTING ADDRESS(ES) 
259 ACT11 HOOKS 
260 APT Ann Lag BLOCK 
261 COMMON TAGS 
(2) APT MAILBOX~E TABLE 
(1) ERROR ag ty TABLE 
560 aeehe RAP HANDLING ROUTINES ***** 
562 CPU TRAP HANDLER ROUTINE 
24 MEMORY MANAGEMENT TRAP HANDLER ROUTINE 
622 wewee = STARTING POINT OF TEST ***«x 
623 waxes = STARTING ADDRESS OF 200 ***«« 
626 Pele knee THE COMMON TAGS 
629 YPE PROGRAM NAME 
(2) hs VALUE FOR SOFTWARE SWITCH REGISTER 
652 T1 PSW PRIORITY BIT TEST 
674 T2 PSW MODE BIT TEST 
699 T3 BYTE ADDRESSING TEST FOR PSW 
737 14 TEST AND SETUP_OF STACK POINTERS 
775 T5 SRO,SR1,SR2,SR3_ TIMEOUT TEST 
812 T6 KERNEL PAR'S TIMEOUT TEST 
818 17 K L PDR*S TIMEOUT TEST 
824 T10 USER PAR'S TIMEOUT TEST 
830 11 USER PDR'S TIMEOUT T 
3 Tle $SRO(15:13) BIT TEST & SR2 TEST 
898 713 S PSW DUAL ADDRESSING TEST 
919 114 TEST THAT SR1 READS ALL Z 
945 T15 BIT TEST OF KERNEL & USER PAR’ 
988 T16 te y 2 OF KERNEL & USER PDR'S 
1033 117 TEST FOR DUAL BYTE ADDRESSING OF KERNEL & USER PAR'S 
1077 T20 een FOR DUAL BYTE eye OF KERNEL & USER PDR'S 
1124 T21 AR-PDR DUAL ADDRESSING TEST 
1170 T22 TEST THAT PAR-PDR*S NOT AFFECTED BY RESET 
1236 T23 RELOCATION re ADDER TEST (NO CARRIES) 
1315 T24 RELOCATION & ADDER TEST (WITH CARRIES) 
1352 T25 READ AND WRITE WHILE IN ote = MODE 
1457 T26 W-BIT LOGIC TEST, KERNEL PDR‘ 
1464 T27 W-BIT LOGIC TEST, USER POR'S 
1478 T30 TEST ‘W-BIT'’ S C 
1533 131 NON-RESIDENT ABORT TEST (ACF=084) 
T32 AD-ONLY CF= 
1697 133 ~— LENGTH FAULTS-UPWARD EXPANSION 
1811 734 PAGE Sg FAULTS=DOWNWARD EXPANSION 
1926 135 SR2 BIT TEST 
1975 736 MORE CHECKS OF SRO & SR2 
2064 137 USER ABORT PICKS UP KERNEL SPACE VECTOR 
2102 140 RTI_IN USER MODE DOES NOT CHANGE PSW 
2134 141 KT ERROR SERVICED wie TIMEOUT ERROR 
2183 142 PC & PSW SAVED FOR KT ERROR DURING SERVICE OF TIMEOUT ERROR 
2260 143 MOVE FROM PREVIOUS CUSERD I-SPACE 
2433 144 MOVE TO PREVIOUS (USER) I-SPACE 
2604 145 MOVE FROM PREVIOUS (KERNEL) I-SPACE TO USER MODE 


N 
CJKDACO KTF11=AA MMU DIAG MACY11 30A(1052) 12-MAR-80 08:00 


CJKDAC.P11 


12-MAR=80 07:56 TABLE OF CONTENTS 


T46 MOVE FROM/TO D=SPACE = MOVE FROM/TO I=SPACE 
147 MOVE we I=SPACE (PREVIOUS=CURRENT=KERNEL ) 


OUT INE 
ERROR MESSAGE TYPEOUT ROUTINE 
weeee SUBROUTINES SS coment P ~ pape aenne 


READ & COMPARE KERNEL & USER PAR/PDR'S 
CONVERT VIRTUAL ADDRESS TO PHYSICAL ADDRESS 
TTY_ INPUT ROUTINE 

CONTROL=C SERVICING ROUTINE 

TYPE ROUTINE 


APT COMMUNICATIONS ROUTINE 

BINARY TO ASCII AND TYPE + yl 

BINARY TO OCTAL (ASCII) AND TYPE 

CONVERT BINARY TO ie F rd TYPE ROUTINE 

SAVE AND RESTORE RO-R5 ROUTINES 

DOUBLE LENGTH BINARY to" OCTAL ASCII CONVERT ROUTINE 
TRAP DECODER 

TRAP TABLE 

POWER DOWN AND UP ROUTINES 

ERROR MESSAGES, DATA HEADERS=TABLES & FORMATS 


SEQ 0013 


B 2 
CJKDACO KTF11-AA MMU DIAG MACY11 30A(1052) 12-MAR=80 08:00 PAGE 1 
CJKDAC.P11 12=MAR=80 07:56 


= 
co 


TITLE CJKDACO KTF11=AA MMU DIAG 
;*COPYRIGHT (C) NOV-79 
>*DIGITAL EQUIPMENT CORP. 

;*MAYNARD, MASS. 01754 


THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
s #PACKAGE (MAINDEC=11=DZQAC-C3), JAN 19, 1977. 


*SBTTL OPERATIONAL SWITCH SETTINGS 
SWITCH 


ee) 
wyvevvvuvvv OA 


PPL LLP PK 


3 


HALT ON ERROR 

LOOP ON TEST 

INHIBIT re TYPEOUTS 
INHIBIT TRACE TRAP 
INHIBIT ITERATIONS 

BELL ON ERR 

LOOP ON ERROR 

LOOP ON TEST IN SWR<7:0> 
* SBTTL BASIC DEFINITIONS 


Ci hae OF THE STACK POINTER *** 1100 *x* 
-EQUIV EMT,ERROR : BASIC DEFINITION OF ERROR CALL 
-EQUIV IOT.SCOPE ; BASIC DEFINITION OF SCOPE CALL 


hai | eee DEF INI TIONS 
11 :CODE FOR HORIZONTAL TAB 
I CODE FOR LINE FEED 
::CODE FOR CARRIAGE RETURN 
000200 CRLF ::CODE FOR CARRIAGE RETURN-LINE FEED 
177776 :sPROCESSOR STATUS WORD 


o£ 
177774 +2 STACK LIMIT REGISTER 
OGRAM INTERRUPT REQUEST REGISTER 
: HARDWARE SWITCH REGISTER 
DDISP= 177570 ; sHARDWARE DISPLAY REGISTER 


; *GENERAL PURPOSE REGISTER DEF INITIONS 
RO= x0 NERAL REGISTER 


es [_Guuadeanoaa 
aeaepen eRe RRS 


@WOO—NrWSs 


z*PRIORITY LEVEL DEFINITIONS 
PRO= 0 ;;PRIORITY LEVEL 0 
PR1= 40 ::PRIORITY LEVEL 1 


(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 

e1 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(i) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
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PR2= 
PR3= 
PR4= 
PR5= 
PR6= 
PR7= 


i 
— 
~ 


BITO9,BIT9 
B1T08,B1T8 
BITO7,B1T7 
B1T06,B1T6 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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MACY11 30A(1052) 


*Bouiy 


-EQUIV 


D 2 
12=-MAR-80 08:00 PAGE 1-2 
BASIC DEFINITIONS 


B1T05,B1T5 
BIT04 .BIT4 
B1T03,B1T3 
B1T02,BIT2 
B81T01,B1T1 
81T00,B1T0 


;*BASIC *'CPU'’ TRAP VECTOR he ye 


PIRQVEC= 240 
- SB 


TIME OUT AND OTHER ERRORS 
{RESERVED AND ILLEGAL INSTRUCTIONS 


:- TRACE TRAP 
; sBREAKPOINT TRAP (BPT) 
TF nly dead TRAP (IOT) **SCOPE** 


IL 
+s EMULATOR TRAP (EMT) **ERROR** 
"TRAP" TRAP 


zeny KEYBOARD VECTOR 
4 PRINTER VECTOR 
ROGRAM INTERRUPT REQUEST VECTOR 


TTL MEMORY MANAGEMENT ‘DEFINITIONS 


3*KT11 VECTOR ADDRESS 


:*KT11 STATUS REGISTER ADDRESSES 


MMVEC= 250 

SRO= 177572 
SR1= 177574 
SR2= 177576 
SR3= 172516 


;*USER ''I’* PAGE DESCRIPTOR REGISTERS 


UIPDRO= 177600 


UIPDR7= 197616 


z*USER *'I'' PAGE ADDRESS REGISTERS 


UIPARO= 177640 


UIPAR7= 177656 


;*KERNEL ‘'I'' PAGE DCSCRIPTOR REGISTERS 


SEQ 0016 
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1) 
(1) 172300 KIPDRO= 172300 
(1) 172302 KIPDR1= 172302 
(1) 172304 KIPDR2= 172304 
(1) 172306 KIPDR3= 172306 
(1) 172310 KIPDR4= 172310 
(1) 172312 KIPDRS= 172312 
(1) 172314 KIPDR6= 172314 
sh 172316 KIPDR7= 172316 
at ;*KERNEL ‘'I'' PAGE ADDRESS REGISTERS 
(1) 172340 KIPARO= 172340 
(1) 172342 KIPAR1= 172342 
(1) 172344 KIPAR2= 172344 
(1) 172346 KIPAR3= 172346 
(1) 172350 KIPAR4= 172350 
(1) 172352 KIPARS= WeSee5 
(1) 172354 KIPAR6= 
a} 172356 KIPAR7= 195386 
23 -EQUIY SP,KSP 
24 -EQUIV SP,USP 
25 -EQUIV BITS, TBIT 
26 -EQUIV BIT6,WBIT 
27 901100 KERSTK= STACK 
$ 000700 USESTK= STACK-200 
" : *ADDITIONAL DEFINITIONS 
-* 
32 
256 
$35 -SBTTL TRAP CATCHER 
(1) 000000 -=0 
(1) 3*ALL UNUSED LOCATIONS FROM 4 = 776 CONTAIN A ‘'.+2,HALT’ 
(1) :*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
ae 000176 LOCATION Q CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 
(1) 000174 000000 DISPREG: .WORD 0 2sSOFTWARE DISPLAY REGISTER 
(1) 000176 000000 SWREG: _.WORD 0 ::SOFTWARE SWITCH REGISTER 
(1) ~SBTTL STARTING ADDRESS(ES) 
(1) 000200 000137 020000 JMP @ASTART ;; JUMP TO STARTING ADDRESS OF PROGRAM 
it - SBTTL acT11 HOOKS 
(2) FREER EEE EERE EEE EERE REE 
(1) “HOOKS REQUIRED BY ACT11 
(1) 000204 $SVPC=. zSAVE PC 
(1) 000046 =46 
Ay 000046 Parnes SENDAD 321)SET LOC.46 TO ADDRESS OF SENDAD IN .$EOP 
(1) 000052 000000 -WORD 0 222)SET LOC. gee TO ZERO 
(1) 000204 ~=$SVPC 3: RESTORE P 
260 -SBTTL APT PARAMETER BLOCK 


i 


No— 
~~ we 


LDR RRR ERE E REE EERE ERE REE EERE 


yo 
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;SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 


~ 
— 
~~ 


(2) SORE IOISIIO I ISIDIDIIIOISIISIISIIEIIOIOIIIUISIIOIIOIIUISISIDIIDINIDIIUIIOIIUOIOOIIUIOIIO 

(1) 000204 . $X=. +3 SAVE CURRENT LOCATION 

(1) 000024 2=24 SET POWER FAIL TO POINT TO START OF PROGRAM 

(1) 000024 000200 200 ::FOR APT START UP 

(1) 000044 -=44 :sPOINT TO APT INDIRECT ADDRESS PNTR. 

(1) 000044 000204 SAPTHDR :zPOINT TO APT HEADER BLOCK 

(1) 000204 =.$X  ;;RESET LOCATION COUNTER 

(2) stestaiaiseesetansaenaseseasenssusssseneannsenteenneesnenasence 

(1) SET UP_APT PARAMETER BLOCK AS DEFINED IN THE APT=PDP11 DIAGNOSTIC 

iy S INTERFACE SPEC. 

(1) 000204 SAPTHD: 

(1) 000204 000000 $HIBTS: .WORD 0 TWO HIGH BITS OF 18 BIT MAILBOX a. 

(1) 000206 001226 $SMBADR: .WORD S$MAIL 3 TADDRESS OF APT MAILBOX (BITS 0-15 

(1) 000210 000014 $TSTM: .WORD 14 :;RUN TIM OF LONGEST TEST 

(1) 000212 000020 SPASTM: .WORD 20 2 ¢RUN tion IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
a4 000214 000005 SUNITM: .WORD 5 ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 


000216 000016 . WORD $ETEND-SMAIL/2 3 LENGTH MAILBOX~E TABLE (WORDS) 
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-SBTTL COMMON TAGS 


; SRR RRR REE ERE EERE EERE EKER EKER REE ERE 


:*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
;*USED IN THE PROGRAM. 


-=1100 
SCMTAG: ;-START OF COMMON TAGS 


+s CONTAINS THE TEST NUMBER 
ERROR FLAG 
SUBTEST ITERATION COUNT 
SCOPE LOOP ADDRESS 
SCOPE RETURN FOR ERRORS 
TOTAL ERRORS DETECTED 
ITEM CONTROL BYTE 
MAX. ERRORS PER TEST 
PC OF LAST ERROR INSTRUCTION 
ADDRESS OF ‘GOOD’ DATA 
ADDRESS OF "BAD" DATA 
*GOOD’ DATA 

te AINS "BAD' DATA 

; sRESERVED--NOT TO BE USED 


; sAUTOMATIC MODE INDICATOR 
;- INTERRUPT MODE INDICATOR 


spre te OF SWITCH REGISTER 
: ITTY KBD e wae REGISTER 


TTY KBD BUFFER 
SITY PRINTER STATUS REG. ADDRESS 
TTY PRINTER BUFFER REG. so ahr 
;: CONTAINS NULL CHARACTER FOR FILLS 
CONTAINS # OF ie CHARACTERS REQUIRED 
33 INSERT +e’ CHARS. AFTER A ‘LINE FEED’ 
“TERMINAL A VAILABLE'” pkon (BIT<07>=0=YES) 


jelelelelelelelelelel lelelelelelelela) 


=] 
= 
7 
v 


Nm 


; AINS (($REGAD) 
CONTAINS (($REGAD) +10) 
23 CONTAINS ( ($REGAD) +12) 


and and an eae ec ed eed Oo ae ee eS Se 
anh aa a onl od 
SRVNSERR SNRKURNSSEEHSKUVEVSRRVSRARNSKKAVSS 


SERS 
OSoooooooe0c0co GCO—-NO 


aot D 
NUMBER OF ITERATIONS 
SZESCAPE ON ERROR ADDRESS 
y: > tit ata + CODE FOR BELL 
es ON MARK 


I 
<iS> 2 CARRIAGE RETURN 


001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 


WNMIALNO 
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(1) 001224 000012 SLF: eASCIZ <12> ;sLINE FEED 
(2) JOSIE OISIOISIDISISIOISIIOISISIIEIIIOIIOIOIOIIOIOIOIOI OI II IT TT TT TOT STE ST TI IE 
5H “SBTTL APT MAILBOX-E TABLE 
($} ZOAIO ISOS SISIOIIOIOISIOIIISISISIIISIIOIDIOISIOIOIIOIOIOIOIIOIIOIOI IOI IOI TOT TTT TTT TOT 
(2) .EVEN 
(2) 001226 SMAIL: ;;APT MAILBOX 
(2) 001226 000000 SMSGTY: .WORD AMSGTY ;;MESSAGE TYPE CODE 
(2) 001230 000000 SFATAL: .WORD AFATAL ;;FATAL ERROR NUMBER 
(2) 001232 000000 STESTN: .WORD ATESTN ;;TEST NUMBER 
(2) 001234 000000 SPASS: .WORD APASS = ;;PASS COUNT 


WORD ADEVCT ;;DEVICE COUNT 


WORD yy 32:1/0 UNIT NUMBER 
(2) 001244 000000 SMSGLG: .WORD AMSGLG ;; GE LENGTH 
(2) 001246 SETABLE: APT ENVIRONMENT TABLE 
(2) 001246 000 SENV:  .BYTE AENV ia oe 8 ald BYTE 
(2) 001247 000 SENVM: .BYTE AENVM ENVIRONMENT MODE BITS 
(2) 001250 000000 SSWREG: .WORD ASWREG ;;APT SWITCH REGISTER 
(2) 001252 000000 $SUSWR: .WORD AUSWR 4 ns A 
<2) 001254 000000 $SCPUOP: .WORD ACPUOP ;;CPU TYPE,OPTIONS 
(2) s* BITS seats CPU TYPE 
(2) i* BA = 01,11/05=02,11/20=03,11/40=04,11/45=05 
(2) s* 11/70=06 ,PDQ=07 , 0=10 
(2) s* BIT 10=REAL_ TIME CLOCK 
(2) 2* BIT 9=FLOATING POINT + asics 
(2) 2* BIT 8=MEMORY MANAGEMENT 
(2) 001256 000 SMAMS1: .BYTE AMAMS1 ;;HIGH ADDRESS,M.S. BYTE 
(2) 001257 000 $MTYP1: .BYTE AMTYP1 ::MEM. TYPE,BLKAT 
(2) o* MEM.TYPE BYTE <== (HIGH BYTE) 
(2) 7* 900 NSEC CORE=001 
(2) s* 300 NSEC BIPOLAR= 002 
(2) i* 500 NSEC MOS=003 
(2) 001260 000000 $MADR1: .WORD AMADR1 ;;HIGH ADDRESS ,BLKA41 : 
(2) 2* MEM.LAST ADDR.=3 BYTES, THIS WORD AND LOW OF ‘TYPE’ ABOVE 
(2) 001262 SETEND 
‘¢) -MEXIT 
(3) 001262 000000 TESTNO: .WORD 0 HOLDS TEST NUMBER FOR TYPEOUTS 
(3) 000000 WASR6 WORD 0 ;USED TO STORE THE STACK POINTER AFTER A TRAP 
(3) 000000 TRAPPC: .WORD Q [USED TO STORE THE PC OF A TRAP OR ABORT 
(3) 001270 000000 TRAPPS: .WORD 1 [USED TO STORE THE PS OF A TRAP OR ABORT 
(3) 001272 000000 WASSRO: .WORD 0 [USED TO STORE CONTENTS OF SRO 
(3) 001274 000000 WA -WORD 0 USED TO STORE CONTENTS OR SR 
(3) 001276 000000 TBITPS: .WORD 0 SAVES THE PSW THAT MAY HAVE ITS T-BIT ON 
(3) 000000 R: .WORD Q Mors RESULT OF ADDRESSES BEING AND-ED 
(3) 001302 000000 ORADR: .WORD 0 HOLDS RESULT OF ADDRESSES BEING OR-ED 
(3) 001304 000000 T -WORD 0 ;HOLDS NUMBER OF TIME-OUTS 
(3) 001306 000000 VIRT1: .WORD OQ ;HOLDS VIRTUAL ADDRESS TO BE CONVERTED 
(3) 001310 000000 VIRT2: .WORD 0 
(3) 001312 000000 PBALO WORD 0Q “HOLDS BITS <15:00> OF PHYSICAL ADDRESS 
(3) 001314 000000 I WORD 0 [HOLDS BITS <17:16> OF PHYSICAL ADDRESS 
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-SBTTL ERROR POINTER TABLE 


2 *THIS TABLE CONTAINS THE INFORMATION 4 > EACH ERROR THAT CAN OCCUR. 
*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER neta IN 

“ eLOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE iy 4 IS PERTINENT. 

;*NOTE1: IF $ITEMB IS 0 THE ONLY PERTINENT DATA _IS ($ERR 

:*NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


::POINTS TO THE ERROR MESSAGE 
3;POINTS TO THE DATA HEADER 
:sPOINTS TO THE DATA 
;sPOINTS TO THE DATA FORMAT 


PNA RARARR RRR ARR RAR A 
CWS os ss ss st a a 
WNYwY www wvuvuvuvvuvvy 


UNEXPECTED CPU TRAP TO LOC. 004 
:OLD PC OLD PSW R6 WAS TESTNO ERRORPC 
:f ” 06 _—, WASR6, TESTNO, SERPPC, 0 


UNEXPECTED MEM. MGMT. TRAP TO LOC. 250 
LD PC OLD PSW R6 WAS SRO SR2 TESTNO _ERRORPC 
alot 6. we WASR6, WASSRO, WASSR2, TESTNO, SERRPC, 


PRIORITY BITS SET WRONG IN PSW 
sWROTE READ TESTNO ERRORPC 
> $REGO,$REG1, TESTNO, SERRPC ,0 


e eVeve 


| a" SET WRONG _IN PSW 
READ TESTNO ERRORPC 
‘SREGO, $REG1, TESTNO, SERRPC 0 


Py . ove 


: DUAL Pa a BETWEEN ain Bhi OF PSwW 
OTE _ READ TESTNO 
?$REGO, $REG1, TESTNO, SERRPC. s © 


:KERNEL R6 CHANGED BY WRITING USER R6 
:WROT READ TESTNO ERRORPC 
;$REGO, $REG1, TESTNO, SERRPC ,0 


Py e e ’ 


coker Y MGMT. REG. TIMED OUT 
SADDRE TESTNO ERRORPC 
‘SREGO. TESTNO, SERRPC ,0 
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061404 050052 DF7 :0,0,0 
;*ITEM 10 
001406 041303 EM10 ;SUMMARY OF MEM. MGMT. REG. TIMEOUTS 
001410 044245 :REGISTER-ADDRS NUM. x 
AND~ OR-ED_ _TIMOUTS TESTNO ERRORPC 


001412 047300 <ANDABR ORADR, TONUM, TESTNO, SERRPC ,0 
001414 050055 :0,0,1,0,0 


BESRaE 


— SS 


: 11 
001416 041347 7MEM. a a REG. pyr a p44 aa 
001420 044345 TREGISTR READ READ~( 
ADDRESS (OCTAL) 8 35109876543210 TESTNO ERRORPC 
001422 047314 ;$REGO, $REG1 , $REG1, TESTNO, SERRPC ,0 
001424 050062 :0,0,7.0,0 


WANWWWNNANWG 
ed ed ad od od 


WW 
woo 
NM —OVDDNAULSWN oO 


; 2 
001426 041407 7MEM. MGMT. REG. BITS NOT SET CORRECTLY 
001430 TREGISTR WROTE — READ READ 
ZADDRESS (OCTAL) (OCTAL) (BINARY) TESTNO ERRORPC 
; SREGO, $REG1 , SREG2,, $REG2, TESTNO, SERRPC ,0 


70, eVeGlevVve 


2 SRO EFFECTED Ay WRITE TO PSW 
; READ TESTNO ERRORPC 
; $REGO, TESTNO, SERRPC ,0 


. eve 


3;SR1_ DID NOT READ ALL ZEROS 
READ TESTNO ERRORPC 
;$REGO, TESTNO,SERRPC ,0 


;DUAL ADDRESSING BETWEEN BYTES OF PAR OR PDR 
REGISTER WROTE READ READ 
ADDRESS (OCTAL) (OCTAL) (BINARY) TESTNO ERRORPC 
$REGO, $REG1 , SREG2, $REG2, TESTNO, SERRPC ,0 


- 
e evVaevVeeaevVe 


ste ADDRESSING BETWEEN PAR-PDR'S 
-PDR PAR-PDR 


CLEARED EFFECTD EXPECTD RECEIVD TESTNO ERRORPC 
EGO, $REG1,$REGS,SREG2, TESTNO, SERRPC ,0 


° 
e avVevVewVaevVe 


PHYS. ADDR. FORMED READ WRONG 
“PHYSICAL VIRTUAL 

: ADDRESS ADDRESS KIPAR4 TESTNO ERRORPC 
;PBA B-YIRT - SREG4, TESTNO, SERRPC ,0 


Ps e e e e 
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359 :*ITEM 20 
360 001506 041722 EM20 sPHYS. ADDR. FORMED READ WRONG IN RELOCATE MODE 
%1 001510 045045 DH20 SPHYSICL PAR 4 PAR 5 
362 “ADDRESS VBA AR 5 PSW TESTNO 
3%3 001512 047410 DT20 ;PBALO,VIRT1, vinTo'$ $REG4, SAEGS. STMPO, TESTNO, SERRPC ,O 
364 001514 050113 DF 20 :3,0,0.0,0,0,0,0 
366 ;* ITEM 21 
367 001516 041774 EM21 zW-BIT DID NOT GET SET IN PDR 
38 001520 045173 DH21 ‘PDR VIRTUAL 
369 ;TESTED ADDRESS TESTNO ERRORPC 
370 001522 047432 D121 :$REG5 , SREG3, TESTNO, SERRPC 0 
371 001524 050123 DF21 :0,0,0.0 
373 s* ITEM 22 
374 001526 042031 EM22 zW-BIT SET IN MORE THAN ONE PDR 
375 001530 045253 DH22 ;PDR IN PDR VIRTUAL 
376 * ERROR TESTED ADDRESS TESTNO ERRORPC 
377 001532 047444 DT22  $REGO, $REGS, $REG3, TESTNO, SERRPC,0 
378 001534 050127 DF22 :0,0,0.0,0 
380 :*1TEM 23 
381 001536 042070 EM23 + pl NOT CLEARED ll hanes TO PDR 
382 001540 045352 DH23 PDR TESTNO ERROR 
383 001542 047460 DT23 “$REGS, TESTNO, SERRPC, th 
384 001544 050134 DF 23 :0,0,0 
386 :*ITEM 24 
387 001546 042134 EM24 sWRITING SRO SET W-BIT IN KIPDR7 
388 001550 045402 DH24 sPDR WAS EXPECTD TESTNO ERRORPC 
389 001552 047470 DT24 $REG2, $REG1, TESTNO, $ERRPC, 0 
390 001554 050137 DF 24 :0,0,0,0 
392 s* ITEM 25 
393 001556 042174 EM25 zW-BIT GOT SET DURING TIMEOUT ABORT 
394 001560 045402 DH24 sPDR WAS EXPECTD TESTNO ERRORPC 
395 001562 047470 D124 $REG2, $REG1, TESTNO, $ERRPC,0 
396 001564 050137 DF 24 :0,0,0.0 
398 :*1TEM 26 
399 001566 042237 EM26 sMEMORY MGMT. ACCESS ABORT DID NOT OCCUR 
400 001570 045442 DH26 sPDR 4 PSW TESTNO ERRORPC 
401 001572 047502 DT26 *$REG2, STMPO, TESTNO, SERRPC 0 
40¢ 001574 050137 DF 24 :0,0,0.0 
404 s* ITEM 27 
405 001576 042307 EM27 es ERROR DID NOT ABORT INSTRUCTION 
406 001600 045442 DH26 PSW TESTNO ERRORPC 
407 001602 047502 DT26 ‘REGS, $TMPO, TESTNO, SERRPC 0 
408 001604 050137 DF 24 70,0,0.0 
410 z*1TEM 30 
411 001606 042356 EM30 ;SRO DID oor REPORT ACCESS ERROR CORRECTLY 
412 001610 045502 DH30 * SRO WAS EXPECTD PDR 4 PSW TESTNO ERRORPC 
413 001612 047514 DT30 *WASSRO SREGS,SREG2,$TMPO, TESTNO, SERRPC 0 
414 001614 050143 DF 30 70,0,0,0,0,0 — 
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2 
050143 
042475 
045642 


047550 
050143 


047566 
050137 
042641 
045762 
047600 
050143 
042430 
046042 


047616 
050143 


047634 
050137 
042717 
046162 
047646 
050143 
042764 
046277 
047664 
050137 
043033 
046122 
047634 
050137 
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3*1TEM 31 


3*ITEM 37 
EM37 
DH37 


DT37 
DF 30 


s*ITEM 40 
E 


7 *1TEM 42 


;SR2 DID NOT LOCKUP CORRECT © aie: | ADDR. 
:SRe WAS EXPECTD PDR PSwW TESTNO ERRORPC 
+4 3 OOF -SREG2,$TMPO, TESTNO, SERRPC ,0 


ye LGTH. ABORT OCCURRED WHEN IT SHOULDN'T HAVE 
V.B.A. KIPDR4 SRO WAS SR2 WAS TESTNO ERRORPC 
i$REGO, $REG4 ,WASSRO ,WASSR2 , TESTNO, SERRPC ,0 


Py eVeveveve 


: PAGE LGTH. ABORT DID NOT OCCUR WHEN IT SHOULD HAVE 
V.B.A. KIPDR4 TESTNO ERRORPC 
: RECO, SREGS, TESTNO, SERRPC ,0 


3SRO DID NOT REPORT PAGE LGTH. ABORT CORRECTLY 
:V.B.A._ KIPDR4 SRO WAS EXPECTD TESTNO ERRORPC 
SAECO” SREGS. UASSRO, $SREG2, TESTNO, SERRPC ,0 


:SR2 DID NOT LOCKUP CORRECT VIRUAL ADDR. 
3V.B.A. KIPDR4 SR2 WAS EXPECTD TESTNO ERRORPC 
SREGO,SREGA. WASSRO. $REG3, TESTNO, SERRPC ,0 


:0, eVwaevewe 


:SR2 DID NOT LOCKUP CORRECT VIRUAL ADDR. 
;SR2 WAS EXPECTD TESTNO ERRORPC 
A ee LES SE A 


A fy OR SR2 CHANGED BY A SECOND ABORT 
IRST ABORT SECOND ABORT 

‘SRO WAS SR2 WAS SRO WAS SR2 WAS TESTNO ERRORPC 

is! ty ase WASSRO, WASSR2, TESTNO, SERRPC ,0 


SRO OR SR2 WAS NOT ‘RESET’’ BY A RESET 
7SRO WAS SR2 WAS TESTNO ERRORPC 
:WASSRO ,WASSR2, - TESTNO, SERRPC ,0 


7SR2 NOT TRACKING CORRECTLY 
:SR2 WAS EXPECTD TESTNO ERROPC 
syARSAe ,SREG! TESTO. SERAPC 0 


CJKDACO KTF11-AA MMU D 
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050143 


043313 
046706 
047744 
050151 
043356 
046706 


047744 
050151 


047764 
050157 


MACY11 yg ge 


se ITEM 44 


EM44 
DH44 


DT44 
DF 30 


s*ITEM 45 
EM45 


DH45 


DT45 
DF 30 


s* ITEM 46 
EM46 


DH46 


DT46 
DF46 


z* ITEM 47 
EM47 


DH46 


DT46 
DF46 


7*I1TEM 50 
EMSO 


3*1TEM 52 
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:DID NOT TRAP THRU KERNEL SPACE 
sPSW_ WAS R6 WAS TESTNO ERRORPC 
3 $REG1, $REG2, TESTNO, SERRPC ,0 


° 
e eovVvewve 


a “4 wha ts TIMEOUT ERROR 
;$REGS, TESTNO, SERRPC ,0 


:SRO_OR SR2 CHANGED BY TIMEOUT ERROR 
ECEIVED 


ZEX PECTED 
SR2 SRO WAS SR2 WAS TESTNO ERRORPC 
:$REGO, $REG1, WASsRO, WAssRe. TESTNO, SERRPC ,0 


Py avVaevVeveVve 


ERROR DURING ‘DOUBLE ERROR’’ (KT & ODD ADDR.) 
EXPECTED: 


SW SRO SR2 
:necelve. (3s+4) 020147 (3$) 


sREC EI 
PSW SRO SR2 TESTNO ERRORPC 
: $REGI snes, WASSRO. WASSR2, TESTNO, SERRPC ,0 


DATA aes’ ee PUSHED WRONG DATA 
sEXPECTD RECEIVD TESTNO ERRORPC 
7$REGO, $REG1, TESTNO, SERRPC , 0 


° ° e e 


s:MTPI INSTRUCTION LOADED WRONG DATA 
ATA DATA 


7D 
ZEXPECTD RECEIVD TESTNO ERRORPC 
$REGO, SREG1. TESTNO, SERRPC ,0 


Py evVewve 


STACK NOT PUSHED BY MFPI-MTPI 
:TESTNO —_ERRORPC 
+ Sy | aman 


KERNEL PAGE cceeete INSTEAD OF USER: MFPI-MTPI 
RO WAS SR2 WAS TESTNO ERRORPC 


:S 
SWASSRO,WASSR2, TESTNO, SERRPC ,0 
70,0,0,0 


SEQ 0025 
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002026 
002050 


002032 
002034 


002036 
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043535 
047043 


047776 
050163 


043613 
046706 


047744 
050151 


6 
050155 


043714 


050020 
050173 
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3* ITEM 55 
EM55 
DH11 


DT11 
DF11 


s*ITEM 56 
EM56 


SEQ 0026 
etc. pa S REFERENCED WHILE IN RELOCATE MODE 


L PAR 4 
AR 4 SRO WAS SR2 WAS PSW TESTNO 
arm i Vint. Shecs, AWASSRO: WASSR2,$TMPO, TESTNO, SERRPC ,0 


oar PD we TION PUSHED WRONG DATA 


SEXPECTD RECEIVD _TESTNO ERRORPC 
7$REGO,$REG1, TESTNO, SERRPC ,0 


Py eVveve 


: STACK NOT waar” BY MFPD-MTPD 
STESTNO ERRORPC 
; TESTNO, SERRPC ,0 


. 
° o 


7PAR i PDR WAS eat BY A ol 

;REGISTR READ READ~(BINARY) 

CADDRESS (OCTAL) 87 521098765432 10 TESTNO ERRORPC 
;$REGO, y+ te -$REG1, TESTNO, SERRPC ,0 


r’ e o e e 


;PSW CHANGED BY AN RTI IN USER MODE 
:PSW WAS EXPECTD TESTNO ERRORPC 
;$REG1,$REG2, TESTNO, SERRPC ,0 


. 
e e ’ e 
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-SBTTL ***** =TRAP HANDLING ROUTINES ***x« 
-SBTTL CPU TRAP HANDLER ROUTINE 


FLERE RRA ERA EREEAEERAE ERE EREKREREREERRERREREERRRRE EH 


THIS Peta WILL > Yn ALL CPU TRAPS AND ABORTS THRU 
"ERRVEC'’ (LOC. 004). IF THIS SUBROUTINE IS ENTERED BY A 
SS aa BEFORE THE FIRST HAS BEEN SERVICED, A HALT IS 


Saar Dar’ aL tae in emer Gua deer it kame eee tenes 
(PC)+ MAKE FLAG ZERO IF FIRST TIME T 
-1 GATIVE ONE FOR ‘HAVE ENTERED" FLAG 
1$ “BRANCH IF FIRST A ie IN 
SMSGTYPE - TELL APT THERE WAS AN ERROR 
TOP! = I*VE ENTERED THIS ROUTINE 
tA SECOND TIME Saar I FINISHED 
;REPORTING THE FIRST ERROR. THE 
oe on ENTRY ADDRESS SHOULD BE ON 
HE KERNEL STACK. 
(KSP) +, TRAPPC ‘SAVE os rt TIME OF ABORT 
(KSP)+,TRAPPS  ;SAVE PS AT TIME OF 
KSP ,WASR6 3 SAVE STACK The ie VALUE 
1 [UNEXPECTED TRAP OR ABORT TO LOC. 4 
177777 + 002100 4-1, TIMFLG [MAKE FLAG NEGATIVE ONE FOR NEXT TIME 
epigee TRAPPS,-(KSP) PUT PC & PS OF TRAP ON STACK 


TRAPPC ,=(KSP) 
RETURN FROM INTERRUPT OR ABORT 


-SBTTL MEMORY MANAGEMENT TRAP HANDLER ROUT INE 


SERRE EEEEEKEEKEEKEEKEEKEEEK 


THIS SUBROUTINE te HANDLE ALL UNEXPECTED MEMORY MANAGEMENT 
TRAPS AND ABORTS THRU 'MMVEC’* (LOC. 250). IF THIS SUBROUTINE IS 
ENTERED BY A SECOND TRAP BEFORE THE FIRST HAS BEEN SERVICED, A 
HALT IS EXECUTED. 


eri iit tiie i iti iiiiiitititiiiiiitititait itis! 
: INC (PC)+ 2 MAKE FLAG ZERO IF FIRST TIME THRU 
: -1 FOR rr IN ENTERED’* FLAG 


‘ae Porere rs 


a: 


1$ 
SMSGTYPE 


(KSP) +, TRAPPC 
(KSP) + TRAPPS 


ME OF ABORT 
KSP,,WAS <SAVE STACK POINTER VALUE 
001272 SRO. WASSRO ; SAVE CONTENTS OF KT STATUS REG. 0 
001274 MOV Re *WASSR2 
177572 Ic 166000, SRO 


104002 5 ; CTED TRAP OR 
012737 177777 002152 MOV 4-1 ,MGMFLG :MAKE FLAG NEGATIVE ONE FOR NEXT TIME 


ABORT TO LOC. 250 
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Y MANAGEMENT TRAP HANDLER ROUTINE 


MOV 
MOV 
RTT 


TRAPPS ,=(KSP) 
TRAPPC ,=(KSP) 


;PUT PC & PS OF TRAP ON STACK 
RETURN FROM INTERRUPT OR ABORT. 


SEQ 0028 


dD 3 
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621 .SBTTL 
622 .SBITL *e*® STARTING POINT OF TEST *#x«« 

623 -SBTTL *kee® STARTING ADDRESS OF 200 **x«« 

624 020000 -=20000 

626 020000 START: 

(1) -SBTTL INITIALIZE THE COMMON TAGS 

(1) szCLEAR THE COMMON TAGS ($CMTAG) AREA 

(1) 020000 012706 001100 MOV ASCMTAG,R6 szFIRST LOCATION TO BE CLEARED 

(1) 020004 005026 CLR (R6) + ::CLEAR MEMORY LOCATION 

(1) 020006 022706 001140 CMP #SWR,R6 ;;DONE? 

(1) 020012 001374 BNE -6 ;;LOOP BACK IF NO 

(1) 020014 012706 001100 MOV WSTACK, SP 3zSETUP THE STACK POINTER 

(1) sc INITIALIZE A FEW VECTORS 

(1) 020020 012737 034136 000020 MOV ASSCOPE ,a#IOTVEC i107 VECTOR FOR SCOPE ROUTINE 

(1) 020026 012737 000340 000022 MOV #340, a#IOTVEC+2 ;:LEVEL 

(1) 020034 012737 034416 000030 MOV ERROR, a#EMTVEC :emt VECTOR FOR ERROR ROUTINE 

(1) 020042 012737 000340 000032 MOV uC @WEMTVEC+2 ::LEVEL 7 

(1) 020050 012737 040410 000034 MOV #STRAP, @#TRAPVEC C3 TRAP VECTOR FOR TRAP CALLS 

(1) 020056 012737 000340 000036 MOV #340, a#TRAPVEC+2; LEVE 

(1) 020064 012737 040476 000024 MOV #SPWRDN , AAPWRVEC ; POWER FAILURE VECTOR 

(1) 020072 012737 000340 000026 MOV #540. @WPWRVEC+2 ::LEVEL 7 

(1) 020100 013737 033650 033642 MOV SENDCT ~SEOPCT : SETUP END-OF -PROGRAM COUNTER 

(1) 020106 005037 001212 CLR STIMES :: INITIALIZE NUMBER OF ITERATIONS 
(1) 020112 005037 001214 CLR SESCAPE 7:CLEAR THE ESCAPE ON ERROR ADDRESS 
(1) 020116 112737 000001 001115 MOVB #) , SERMAX 3zALLOW ONE ERROR PER TEST mt 
(2) aa ae THE 'T-BIT'' TRAP VECTOR. oon LOAD LOCATION, “SRTRN', IN 
(2) E *END-OF=PASS'* (SEOP) ROUTINE, WITH \ *RTI'’ OR ‘RIT 

(2) 020124 012737 034122 000014 MOV ASRTRN, AA TBITVEC :3SET a BIT VECTOR 10 dates 

(2) 020132 012737 900340 000016 MOV #340, @#TBITVEC+2 T:LEVEL 7 

(2) 020140 012737 000002 034122 MOV ARTI. SRTRN SET SATRN TO A RTI 

(2) 020146 012737 020174 000010 MOV #698, AMRESVEC 2: TRY TO DO A RIT 

(2) 020154 005046 CLR SP) ; DUMMY PS 

(2) 020156 012746 020164 MOV nels, -(SP) SAND PC 

(2) 020162 000006 RTT STRY THE RTT 

(2) 020164 012737 000006 034122 64$: MOV #RTT,SRTRN SIRT IS LEGAL=-SET $RTRN TO A RTT 
(2) 020172 000402 BR 66$ 

(2) 020174 062706 000010 65$: ADD #10,SP T ILLEGAL--CLEAN OFF THE STACK 
(2) 020200 012737 000012 000010 66$: MOV MRESVEC+2, amesvit™ "REST ORE TRAP CATCHER 

(2) 020206 005037 034130 CLR $TBIT CLEAR ‘'T'’ BIT SWITCH 

(1) 020212 012737 020212 001106 MOV #.,$LPADR SHINITIALIZE THE LOOP ADDRESS FOR SCOPE 
(1) 020220 012737 020220 001110 MOV #..SLPERR :SETUP THE ERROR LOOP ADDRESS 

(2) :SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT I 

(2) ::EQUAL TO A ''=1'', SETUP FOR A SOFTWARE SWITCH REGISTER. 

(2) 020226 013746 000004 MOV @¥ERRVEC,-(SP) i 3 SAVE ERROR VECTOR 

(2) 020232 012737 020266 000004 MOV #67$,aWERRVEC ::SET UP ERROR VECTOR 

(2) 020240 012737 177570 001140 MOV #DSWR, SWR 33SET UP FOR A HARDWARE SWICH REGISTER 
(2) 020246 012737 177570 001142 MOV *DDISP. DISPLAY ::AND A HARDWARE DISPLAY REGISTER 

(2) 020254 022777 177777 160656 CMP #-1,aSWR ':TRY TO REFERENCE HARDWARE SwR 

(2) 020262 001012 BNE 698" ;:BRANCH IF NO TIMEOUT TRAP OCCURRED 
(2) :t THE HAR SWR IS NOT = -1 


68$ F_NO TIMEOUT 
020274 : #68$, (SP) SISET UP FOR TRAP RETURN 


000176 : ASWREG, SWR :sPOINT TO SOFTWARE SWR 
012737 000174 #DISPREG,DISPLAY 
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020310 
020314 


020534 
020542 
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012637 
005037 
132737 
001403 
012737 


005037 


000403 
112737 
000417 


000004 


001234 
000200 


001250 
001112 


177777 
034020 
020426 
000042 
001246 
001140 


000001 


001100 
002076 
000340 
002150 
000340 
177777 
002100 
002152 


000340 
177572 
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001247 
601140 


000042 
000001 
000176 


001134 


000004 


000006 
000250 
000252 


001276 


E 3 
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INITIALIZE THE COMMON T 


69$: 


MOV (SP)+,@M#ERRVEC ;;RESTORE ERROR VECTOR 


CLR $PASS :CLEAR PASS COUNT 
BITB MAPTSIZE ,SENVM SITEST USER SIZE UNDER APT 
BEQ 70$ 72YES,USE NON-APT SWITCH 


MOV ASSWREG , SWR 7INO,USE APT SWITCH REGISTER 


70$: 
33 INITIALIZE sy COUNTER SEL EOP REPORT(SERTTL). 


. SBTTL 


CLR CLEAR ERROR COUNTER 
TYPE PRO 


GRAM NAME 
ie TYPE — hte PROGRAM IF FIRST PASS 


-SBITL 


73$: 
74$: 


:72$: 
o1$: 


RESTRT: 
LOOP: 


IN iesFIRST TIME? 
BNE 71$ ; sBRANCH IF NO 
CMP AMSENDAD ,a442 #sACT=112 
71$ CH IF YES 
YPE .72$ YPE ASCIZ_ STRING 
Get VALUE FOR SOF TWARE siTcH REGISTER 
TST ase 72ARE WE ‘ae UNDER XXDP/ACT? 


BNE 73$ 7; ;BRANCH YES 

CMPB SENV,41 * sARE WE RUNNING UNDER APT? 

BEQ 73$ ;BRANCH IF YES 

CMP SWR ,ASWREG SOF TWARE SWITCH REG SELECTED? 
BNE 74$ CH IF NO 

a SIGET SOF T-SWR SETTINGS 


74$ 
MOVB #1, $AUTOB 32SET AUTO-MODE INDICATOR 
BR 71$ :GET OVER THE ASCIZ 
eASCIZ <CRLF>#CJKDACO KTFII-AA MMU DIAG. A<CRLF> 


MOV STACK ,KSP INITIALIZE THE STACK POINTER 

MOV WTIMERR,ERRVEC LOAD CPU SERVICE ROUTINE INTO TRAP VECTOR 
MOV #340,ERRVEC+2 SET NEW PS TO PRIORITY LEVEL 7-KERNEL 

MOV WMGMERR ,MMVEC LOAD MEMORY MANAGENT ROUTINE INTO VECTOR 
MOV aay MMVEC+2 SET NEW PS TO PRIORITY LEVEL 7-KERNEL 


MOV #~1,RO ;PUT -1 INTO RO TO INITIALIZE FLAGS 

MOV RO, TIMFLG S INITIALIZE CPU ERROR FLAG 

MOV RO,MGMF LG : INITIALIZE MEMORY MANAGEMENT ERROR FLAG 
MOV #340, TBITPS SINITIALIZE LOG THAT HOLDS T-BIT PSW 

CLR SRO BE SURE MEM. MGMT IS OFF TO START WITH 


SEQ 0030 
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001363 
012737 


020560 


177437 


060040 
000400 


020550 


020632 
177776 


177776 


010000 


020622 
177776 


MACY11 


001110 


001110 


001110 


001110 
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T VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0031 


SL AREER EEE AREER AREER EERE REE EE 


s*TEST 1 PSW PRIORITY BIT TEST 


THIS TEST READS AND WRITES THE PROCESSOR STATUS WORD <7:5> — BITS** 
TO SEE THAT SOME OF THE BASIC ‘DATA PATH’ LOGIC IS WORKING 


SRE AEEARAEREAERAERA EEE ERA 


ae 

;* 

:* 

ST1: SCOPE 
1$: MOV 


#2$,$LPERR :SET LOOP ON ERROR POINTER TO 2$ 
CLR RO ‘INITIALIZE RO WITH PRIORITY=0 DATA 
2$: CLR R1 SPREPARE R1 TO ACCEPT DATA 
MIPS RO :WRITE PRIORITY BITS IN THE PSW 
MFPS R17 “READ BACK THE LOW BYTE OF PSW 
BIC #177437,R1 ;MASK OFF EVERYTHING EXCEPT PRIORITY BITS 
CMP RO,R1 WAS CORRECT PRIORITY SET IN THE PSw? 
BEQ 3$ “BRANCH IF YES 
ERROR 3 :PRIORITY BITS SET WRONG IN PSW 
‘FOR TIGHTER SCOPE LOOP 
;REPLACE ERROR CALL WITH 
:'BR 2$'' = 000770 
3$: ADD #40,RO “CHANGE DATA TO NEXT PRIORITY 
CMP #400,RO SHAVE PRIORITIES 0-7 ALL BEEN CHECKED? 
BNE [BRANCH IF NO 
MOV #1$,$LPERR [RESET LOOP ON ERROR POINTER TO 1$ 
JARRE REE REE ERE EEREKEEEEEREERERERAERERERRERKEEEEEEKEEEEREEKEEE 
tSTEST 2 PSW MODE BIT TEST 
te THIS TEST READS AND WRITES THE PROCESSOR STATUS WORD <15:12> ‘MODE BITS'' 
** 
PITITITITITIITTITITTTTTTTTITITLi LLL LT TLL T ELLE LLL LE LTT Tee 
TST2: SCOPE 
1$: MOV #2$,$LPERR :SET LOOP ON ERROR POINTER TO 2$ 
CLR RO S INITIALIZE RO WITH MODE BITS = 0000 
2$: CLR PSw S INITIALIZE PSW 
BIS RO,PSW :BIT SET THE PSwW MODE BITS WITH RO 
MOV PSW,R1 READ BACK THE CONTENTS OF THE PSW 
BIC #007777,R1 [MASK OFF EVERYTHING EXCEPT THE MODE BITS 
CMP RO,R1 WERE THE MODE BITS SET CORRECTLY? 
BEQ 3$ [BRANCH IF YES 
CLR PSw [CLEAR PSwW FOR ERROR REPORT 
ERROR 4 [MODE BITS SET WRONG IN PSW 
SFOR TIGHTER SCOPE LOOP 
REPLACE ERROR CALL WITH 
:'BR 2$'' = 000763 
3$: ADD #10000,R0 ZCHANGE MODE BIT DATA 
BNE $ ‘BRANCH IF STILL MORE COMBINATION 
MOV #1$,$LPERR :RESET LOOP ON ERROR POINTER TO AF 
CLR PSW TRESET PSwW BEFORE LEAVING 
FERRARA EERE RAE EEERERAEREARAERAEEERERAEREREREREAREKERRKEREKEE 
tSTEST 3 BYTE ADDRESSING TEST FOR PSW 
** 
te THIS TEST WRITES THE HIGH AND LOW BYTES OF THE PROCESSOR STATUS WORD 


:* AND READS THEM BACK TO BE SURE THEY CAN BE WRITTEN INDEPENDENTLY. 
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KDAC .P 

(4) 

(3) 

(2) 020704 

700 020706 012737 
701 020714 005037 
702 020720 012700 
703 020724 110037 
704 020730 013701 
705 020734 2701 
706 020740 300 
707 020742 020001 
708 020744 001403 
709 020746 005037 
710 020752 104005 
711 

712 

713 

714 020754 012737 
715 020762 005037 
716 0207 012700 
717 020772 110037 
718 020776 013701 
719 021002 042701 
720 021006 020001 
721 021010 001403 
722 021012 005037 
723 021016 104005 
724 

725 

726 

727 021020 012737 
728 

737 

(3) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(3) 

(2) 021026 

738 021030 005037 
739 021034 0127 
740 021040 012737 
741 1046 012706 
742 021052 005037 
743 021056 022706 
744 1062 1404 
745 021064 012700 
746 021070 010601 
747 021072 

748 

749 

750 


020714 
177776 
000360 
177777 
177776 
007437 


177776 


020762 
177776 
00034 


0 
177776 
177776 
007437 


17777€ 


020706 


177776 
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001110 


001110 


001110 


177776 


BYTE ADDRESSING TEST FOR PSw 


*® 
PETISITIITI IIIT iTi titi titi titi i ittitiiitiititi iit itt t titi ane 
TST3: SCOPE 
1$: MOV #2$,$LPERR :SET LOOP ON ERROR POINTER TO 2$ 
2$: CLR PSW : CLEAR THE PSW 
MOV #360,RO T THE HIGH BYTE DATA INTO RO 
MOVB RO, PSW+1 RITE THE HIGH BYTE OF THE PSW 
MOV PSW,R1 TREAD BACK THE ENTIRE PSW 
BIC #007437,R1 sMASK OFF THE T & CC BITS 
SWAB Ss RO [GET DATA WRITTEN IN HIGH BYTE OF RO 
CMP RO,R1 “WAS THE PSW WRITTEN TO CORRECTLY 
BEQ 33 ‘BRANCH IF YES 
CLR PSw [CLEAR PSwW FOR ERROR REPORT 
ERROR 5 ‘LOW BYTE EFFECTED BY WRITE TO HIGH BYTE OF PSW 
“FOR TIGHTER SCOPE LOOP 
: REPLACE, ERROR CALL WITH 
3$: MOV HS, SLPERR :SET LOOP ON ERROR POINTER TO 4$ 
4s: CLR ‘CLEAR THE PSW 
MOV #300, RO [PUT THE LOW BYTE DATA INTO RO 
- MOVB RO.P [WRITE THE LOW BYTE OF THE PSW 
MOV ;READ BACK THE ENTIRE psu 
BIC Pua MASK OFF THE T&CC BITS 
CMP RO,R1 [WAS PSW WRITTEN TO CORRECTLY 
BEQ 5$ [BRANCH IF YES 
CLR PSw [CLEAR PSW FOR ERROR REPORT 
ERROR 5 tHIGH BYTE EFFECTED BY WRITE TO LOW BYTE OF PSwW 
[FOR TIGHTER SCOPE LOOP 
:REPLACE ERROR CALL WITH 
:'BR 2$"' = 000736 
S$: MOV #1$,$LPERR “RESET LOOP ON ERROR POINTER TO 1$ 
CL RARER EEEEEEEEEREKEREREEREREREREEEEERERAEEREERKEEKREEEEE 
TATEST 4 TEST AND SETUP OF STACK POINTERS 
*“* 
te THIS TEST SETS THE USER AND KERNEL STACK POINTERS FOR THE 
te REST OF THE PROGRAM AND MAKES SURE THEY ARE INDEPENDENT 
* EACH OTHER. KERNEL R6 IS SET TO 1100, USER R6 IS SET To 00. THEN 
:* KERNEL R6 IS READ TO BE SURE ITS STILL 1100. 
** 
ETITITITIIITITTITITTTTITTTITITitt TTT LTT TLL LT LLL LLL TTT Tete 
TST4: SCOPE 


CLR PSW :GO_TO KERNEL MODE 

MOV #KERSTK ,KSP SET KERNEL STACK POINTER TO 1100 
MOV #140000 ,PSw :GO_TO USER MODE 

MOV MUSESTK ,USP i SET + srex POINTER TO 700 


CLR PSW BACK T 

CMP MKERSTK ,KSP iS KERNEL R6 STILL 1100? 

BEQ TST5 ; ;BRANCH_IF KERNEL R6 IS OKAY 

MOV #KERSTK RO ;SAVE DATA WRITTEN FOR ERROR REPOR) 

MOV KSP,R1 SAVE DATA READ AFTER USER R6 WAS WRITTEN 
ERROR 6 KERNEL R6 os BY WRITING USER R6 


FOR TIGHTER SCOPE LOOP 
sREPLACE ERROR CALL WITH 
000756 


SEQ 0032 
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021202 
021206 


021210 


021224 


000004 
012737 


021140 


172516 
021076 
001304 


002076 


000004 


001302 


001300 
001304 
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001110 
000004 


001360 
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T AND SETUP OF STACK POINTERS 


MASA PSSA LRSRESAASASARAASLASAL ESAS ESSA S SEER ARERR SRE SRT SES SE Sf 


hot teed FIVE (5) TESTS WILL TRY TO ADDRESS ALL OF THE 


MANAGEMENT REGISTERS (SRO,SR1,SR2,SR3,KERNEL cist S). 


4! 
7* 
** 
:* EVERY TIME A REGISTER Poe OUT ITS ADDRESS WILL BE R 

= A SUMMARY OF THE ADDRESSES THAT TIMED 
OUT DURING T Its GIVEN. THE RESULTS OF ‘‘AND-ING'’ AND 
7° THEIR oat IS GIVEN TO SHOW WHICH ADDRESS LINES MAY BE 
:* STUCK AT 0 OR 1. _ THE PAR/PDR ADDRESS AND KT MUX'S ARE THE 

7* THINGS ABE ING CHECKED. 

ei 


SRR RRR I KKK 


DREHER ERK REE EEE AREER RRR REREREREKEERERERKEERERERER EEE 


STEST 5 SRO,SR1,SR2,SR3 TIMEOUT TEST 


THIS TEST er 7: THE MEMORY MANAGEMENT STATUS REGISTERS 
0,1,2, AND 3. STATUS REG. 1 IS NOT USED BUT SHOULD STILL 
RESPOND TO ITS UNIBUS ADDRESS. DATA WILL BE WRITTEN OR READ 
ce a abies oe IN LATER TESTS, THIS TEST JUST CHECK 


MmASaSA SAS eSAeASSEEARARALASALASALELELESE SELES ES ESE SEER EE RRR ESE SSS 


a 
wn 
oe 


fw WM: eoeeaee ei 


— dhe Be Be Be Be Be Be Be 


#2$,$LPERR :SET LOOP ON ERROR POINTER TO 2$ 
#5$, :SET TIMEOUT VECTOR TO 5$ 

#SRO,RO [LOAD RO WITH ADDRESS OF FIRST REG. 
3 [LOAD R1 WITH THE LOOP COUNT 


#3,R1 
#~1 , ANDADR INITIALIZE ""AND’’ OF ADDRS. LOC. 
ORADR ° 


; TER 
TRY ADDRESSING A STATUS REGISTER 
F_ IT TIMES OUT GO TO 5$ 

PUT 2 ae Y IN RO 

;LOOP BACK TO 2$ UNTIL ALL TESTED 
B¥i92516 SCHECK SR3 FOR RESPONSE 

:1F IT TIMES OUT GO TO 5$ 
#1$,$LPERR ;RESET LOOP ON ERROR POINTER TO 1$ 
TONUM ;DID ANY OF THE STATUS REG.S TIMEOUT? 
BRANCH IF NO 


10 SUMMARY OF STATUS REG. TIMEOUTS 
ATIMERR ,aa4 RESTORE NORMAL CPU TRAP ROUTINE ADDRESS 
TST6 :2GO TO NEXT TEST 


#4 ,KSP oie gS UP THE STACK 
7? [ONE OF THE STATUS REGS. TIMED OUT 
FOR TIGHTER SCOPE LOOP 
;REPLACE ERROR CALL WITH 
2$"* = 000756 


RO,R2 LOAD im “ADDRESS THAT TIMED OUT INTO R2 
R2,ORADR FORT IT WITH OTHER ADDRS. THAT TIMED OUT 
R :'AND'’ IT WITH OTHER ADDRS. THAT TIMED OUT 
Re, ANDADR 

TONUM 


INCREMENT THE TIMEOUT COUNTER 


o 


SEQ 0033 
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807 021230 000744 BR 3$ s;BRANCH BACK TO TEST THE NEXT ADDR. 


ARRAS EAAAAALESASELARARAAALESLLSESLLSES EASES ERE SER ERE RRS ESS SE SS 


:#TEST 6 KERNEL PAR'S TIMEOUT TEST 


THIS TEST ADDRESSES THE EIGHT (8) KERNEL PAGE ADDRESS 
REGISTERS (KIPARO-KIPAR7) AND CHECKS THAT SOMETHING 
RESPONDS TO THEIR ADDRESSES. 


** 
a | 
** 
** 
ee Rae dee eS Me ce ee er ne ee re ee 
S 


021232 000004 


012737 021276 001110 1$: #2$,$LPERR SET LOOP ON ERROR POINTER TO 2$ 
0213 000004 ASS 044 ;SET TIMEOUT VECTOR TO 5$ 
"ae ; LOAD RO WITH NCEP tRUnT A REG. 


#10, 
001300 #-1 ,ANDADR 

ORADR 

TONUM 

(RO) 


#2,RO ; 

R1,2$ ;LOOP BACK TO 2$ UNTIi ALL TESTED 
021234 001110 #1$,$LPERR ;RESET LOOP ON ERROR POINTER TO 1$ 
001304 TONUM :DID an ‘g THE KIPARS TIME OUT? 


4$ H IF NO 
10 “ SUMMARY OF KIPAR TIMEOUTS 
002076 000004 : #TIMERR a4 [RESTORE NORMAL CPU TRAP ROUTINE ADDRESS 
BR TST7 3360 TO NEXT TEST 


#4,KSP CLEAN UP THE STACK 
7 ONE OF THE KIPARS TIMED OUT 

FOR TIGHTER SCOPE LOOP 

;REPLACE ERROR CALL WITH 

:'BR 2$'' = 000756 
RO,R2 sLOAD THE ADDRESS THAT TIMED OUT INTO R2 
R2,ORADR #, OR" IT WITH OTHER ADDRS. THAT TIMED OUT 
R2 7"'AND'' IT WITH OTHER ADDRS. THAT TIMED OUT 
R2,ANDADR 
TONUM 


: INCREMENT THE TIMEOUT COUNTER 
3$ BRANCH BACK TO TEST THE NEXT KIPAR 


LIRA EEEEE EERE 


s*TEST 7 KERNEL PDR*S TIMEOUT TEST 
-* 


THIS TEST ADDRESSES THE EIGHT (8) KERNEL PAGE DESCRIPTOR 
REGISTERS (KIPDRO-KIPDR7) AND CHECKS THAT SOMETHING 
RESPONDS TO THEIR ADDRESSES. 


Ce ee Nee 


SCOPE 


021430 ¢ #2$,SLPERR : ON ERROR POINTER TO 2% 
021466 000004 #5$ ,aa4 33 OUT VECTOR TO 5$ 

172300 #K IPDRO,RO ; WITH ADDRESS OF FIRST REG. 
000010 #10,R1 : WITH LOOP COUNT (8) 


MWA UI = tt A SS Sh Sh Sh 9 SW 9 2 Sh Sh Ss SS 2 Sh Sh Sh oS SS PWT S 


ee NN we DOR i eS ee SSA SS re we we 
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CJKDAC.P11 —-12=MAR=80 07:56 17 KERNEL PDR'S TIMEOUT TEST SEQ 0035 
(1) 021412 012737 177777 001300 MOV — #=1,ANDADR INITIALIZE ‘‘AND'' OF ADDR. LOC 
(1) 021420 005037 001302 CLR ORADR : INITIALIZE “OR OF ADDR. LOC. 
(1) 021424 005037 001304 CLR _TONUM INITIALIZE TIMEOUTS’ COUNTER 
(1) 021430 0057170 28: TST ~—- (RO) :TRY ADDRESSING A KIPDR 
(1) zIF_IT TIMES OUT, WILL GO TO 5$ 
(1) 021432 062700 000002 3$: ADD —-#2,.RO PUT NEXT KIPDR ADDRESS IN RO 
(1) 021436 077104 SOB séR1,2$ LOOP BACK TO 2$ UNTIL ALL TESTED 
(1) 021440 012737 021366 001110 Mov «#18, SLPERR :RESET LOOP ON ERROR POINTER TO 1$ 
(1) 021446 005737 001304 TST TONUM :DID ANY OF THE KIPDRS TIME OUT? 
(1) 021452 001401 BEQ 4 $ ZBRANCH IF NO 
(1) 021454 104010 ERROR 10 SUMMARY OF KIPDR TIMEOUTS 
(1) 021456 012737 002076 000004 4$: MOV = ATIMERR,a#4 RESTORE NORMAL CPU TRAP ROUTINE ADDRESS 
(3) 021464 000614 BR TST10 :GO TO NEXT TEST 
(1) 021466 062706 000004 5$: ADD —s-#4, KSP CLEAN UP THE STACK 
(1) 021472 104007 ERROR 7 ZONE OF THE KIPDRS TIMED OUT 
(1) :FOR TIGHTER SCOPE LOOP 
(1) ;REPLACE ERROR CALL WITH 
(1) :'BR 28" = 000756 
(1) 021474 010002 MOV —RO.R2 ZLOAD THE ADDRESS THAT TIMED OUT INTO R2 
(1) 021476 050237 001302 BIS R2, ORADR SOR" IT WITH OTHER ADDRS. THAT TIMED OUT 
(1) 021502 005102 COM = Re :'AND'’ IT WITH OTHER ADDRS. THAT TIMED OUT 
(1) 021504 040237 001300 BIC R2, ANDADR 
(1) 021510 905237 001304 INC —_TONUM INCREMENT THE TIMEOUT COUNTER 
(1) 021514 000746 BR 3$ ;BRANCH BACK TO TEST THE NEXT KIPDR 
824 FARRER EERE AKER REE EERE EERE KEE EK K 
3 STEST 10 USER PAR'S TIMEOUT TEST 
(5) te THIS TEST ADDRESSES THE EIGHT (8) USER PAGE ADDRESS 
(5) i* REGISTERS (UIPARO-UIPAR7) AND CHECKS THAT SOMETHING 
(3) :* RESPONDS TO THEIR ADDRESSES. 
** 
(3) DUIS OEE EASIER ISO IIIS IOSD SIDI IUISII NEI OO 
&3) 021516 000004 TST10: SCOPE 
(1) 021520 012737 021562 001110 1$: MOV _—- #2$, SLPERR ;SET LOOP ON ERROR POINTER TO 2$ 
(1) 021526 012737 021620 000004 MOV #5$. a4 :SET TIMEOUT VECTOR TO 98 
(1) 021534 012700 177640 MOV — AUIPARO,RO OAD RO WITH ADDRESS OF FIRST REG. 
(1) 021540 012701 000010 MoV = #10, R1 {LOAD RV WITH LOOP COUNT (8) 
(1) 021544 012737 177777 001390 MOV #-1 "ANDADR INITIALIZE ‘‘AND'' OF ADDR. LOC 
(1) 021552 005937 001302 CLR ORADR INITIALIZE ‘OR'' OF ADDR. LOC. 
(1) 021556 005037 001304 CLR TONUM INITIALIZE ‘'TIMEOUTS'’ COUNTER 
(1) 005710 2s: TST — (RO) TRY ADDRESSING A UIPAR 
(1) zIF_IT TIMES OUT, WILL GO TO 5$ 
(1) 021564 062700 000002 3$: ADD = #2..RO PUT NEXT UIPAR ADDRESS IN RO 
(1) 021570 077104 SOB séR12$ LOOP BACK TO 2$ UNTIL ALL TESTED 
(1) 021572 012737 021520 001110 MOV #1, $LPERR :RESET LOOP ON ERROR POINTER TO 1$ 
(1) 021600 005737 001304 TST ——_TONUM :DID ANY OF THE UIPARS TIME OUT? 
(1) 021604 001401 BEQ = -4$ ZBRANCH IF _NO 
(1) 021606 104010 ERROR 10 ;SUMMARY OF UIPAR TIMEOUTS 
(1) 021610 012737 002076 000004 4$: MOV = #TIMERR,a#4 = RESTORE NORMAL CPU TRAP ROUTINE ADDRESS 
(3) 021616 000414 BR TST11 :GO TO NEXT TEST 
(1) 021620 062706 000004 5$: ADD #4, KSP CLEAN UP THE STACK 
(1) 021624 104007 ERROR 7 ONE OF THE UIPARS TIMED OUT 


K 3 
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CJKDAC.P11 12-MAR=80 07:56 T10 USER PAR'S TIMEOUT TEST 


;FOR TIGHTER SCOPE LOOP 
;REPLACE ERROR CALL WITH 
;'BR 2$"' = 000756 


RO.R2 ZLOAD THE ADDRESS THAT TIMED OUT INTO R2 
R2,ORADR ZR IT WITH OTHER ADDRS. THAT TIMED OUT 
Re SAND’ IT WITH OTHER ADDRS. THAT TIMED OUT 
R2,ANDADR 

TONUM 


: INCREMENT THE TIMEOUT COUNTER 
3$ ;BRANCH BACK TO TEST THE NEXT UIPAR 


SFA AEE REE AERA KEREKEEREREKEKEREERKEERERHEEREEA 


i*TEST 11 USER PDR'S TIMEOUT TEST 
* 


THIS TEST ADDRESSES THE EIGHT (8) USER PAGE DESCRIPTOR 
REGISTERS (UIPDRO-UIPDR7) AND CHECKS THAT SOMETHING 
RESPONDS TO THEIR ADDRESSES. 


SERRA EKEEEEREKEEKKEREREKEKEKK 


021650 000004 111: 


021652 012737 021714 001110 1$: #2$,SLPERR SET LOOP ON ERROR POINTER TO 2$ 
021660 000004 #S$ a4 orea TIMEOUT VECTOR TO 5$ 
OAD RO WITH ADDRESS OF FIRST REG. 
TH LOOP COUNT (8) 


BOOP LLL LPL PP 
a os 
Owwwvuvvuvnr 


& 


*® 
** 
2 
** 
7 
S 


001300 


021714 
021716 


R1.2$ 
021652 MOV #1$,SLPERR : 
001304 TONUM :DID ANY OF wit UIPDRS TIME OUT? 


4$ [BRAN 
10 : SUMMARY OF UIPDR TIMEOUTS 
002076 : ATIMERR ,aa4 ;RESTORE NORMAL CPU TRAP ROUTINE ADDRESS 
021750 000414 BR TST12 73G0 TO NEXT TEST 


021752 : ADD #4, KSP CLEAN UP THE STACK 
021756 7 ZONE OF THE UIPDRS TIMED OUT 
ZFOR TIGHTER SCOPE LOOP 
ZREPLACE ERROR CALL WITH 
:BR 28" = 000756 
RO.R2 ZLOAD THE ADDRESS THAT TIMED OUT INTO R2 
R2.ORADR : DRT, AT WITH OTHER ADRS. THAT TIMED QUT 
k “AND'® IT'WITH OTHER ADRS. THAT TIMED OUT 
R2, ANDADR 
TONUM 


: INCREMENT THE TIMEOUT COUNTER 
3$ BRANCH BACK TO TEST THE NEXT UIPDR 


FARRAR AREER EERE EREAEEEREREKEAERREEREEEERREEREREEEEEEKREKE 


;STEST 12 SRO(15:13) BIT TEST & SR2 TEST 


THIS TEST CHECKS BITS <15:13> OF STATUS REGISTER 0 TO SEt 
THAT EACH CAN BE SET AND CLEARED AND THAT A ‘RESET’’ WILL 
CLEAR ALL OF THEM. 


Sruraracupararurarastresaraerwcser errr ee 


Le ee te a ee ee a ae at a a ae 
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SRO(15:13) BIT TEST & SR2 TEST 


THE REST OF BITS IN SRO WILL BE nn he ee 
ALSO CHECK THAT SR2 IS TRACKING WITH MEM 
OFF BUT LOCKS UP WHEN ANY OF SRO ERROR BITS SET. 


CJKDACO_KTF11=AA MMU DIAG 


MACY11 30A(1052) 
CJKDAC.P11 12-MAR-80 07:56 T12 


022022 


022024 
022032 
022040 

22044 


0. 
022050 
022052 


022054 
022062 


022124 
022126 


000004 
012700 
012710 
000005 
011001 
001404 
104011 


012737 


005010 
012737 


177572 
160000 


022032 


022072 
100000 
000003 


022074 
177576 
001274 


001110 
001274 


#SRO,RO 
#160000, (RU) 


(RO) ,R1 
23 
11 


#2$,$LPERR 
SR2,WASSR2 
#2$,R1 
R1,WASSR2 
3$ 

41 


#4$ ,$LPERR 
#B1T15,R1 
oo 


(RO) 

R1, (RO) 

(RO) R2 
Re 


3 


#5$,R4 
SR2 ,WASSR2 
R4 ,WASSR2 


7$ 
64 


R1 

R3,4$ 

(RO) 
#1$,$LPERR 


3LOAD ADDRESS OF SRO INTO RO 

:SET BITS <15:13> IN SRO (ERROR BITS) 
ISSUE AND "‘INIT’’ SIGNAL 

TREAD SRO_INTO R1 TO SEE IF CLEAR 

BRANCH IF ode 13> CLEARED BY ‘‘INIT"’ 

;SRO0<15:13> NOT CLEARED BY A ‘RESET'’ 

:FOR TIGHTER S SCOPE LOOP 

:REPLACE ERROR CALL WITH 

:'BR 1$'' = 000770 


:SET LOOP ON ERROR POINTER TO 2$ 
;READ CONTENTS OF SR 

{LOAD EXPECTED CONTENTS INTO R1 
z1S SR2 TRACKING? 
:BRANCH Jp YES 
:$ TRACKING'’ VIRTUAL ADDRESSES 
FOR TIGHTER SCOPE. LOOP 

;REPLACE ERROR CALL WITH 

:'BR 2$"" = 000767 

:SET LOOP ON ERROR POINTER TO 4$ 
:PUT DATA TO BE WRITTEN IN R1 
:SETUP R3 AS A LOOP COUNTER 
CLEAR SRO 
:SET ONE OF THE ERROR BITS IN SRO 
:READ SRO INTO 
:DID RIGHT TERROR BIT GET SET? 


:BRANCH IF 
:BITS WERE SET WRONG IN SRO 
:FOR TIGHTER SCOPE LOOP 
:REPLACE ERROR CALL WITH 


‘LOAD EXPECTED CONTENTS OF SR2 IN R4 
AD SR2 


sRE 
;DID SR2 LOCK UP WHEN ERROR 
:BIT a » R1? 


;SR2 DID NOT LOCK UP 
FOR TIGHTER SCOPE LOOP 
:REP LACE ERROR CALL WITH 

: Ro07er 


"BR 4$"' = 
TO CHECK NEXT ERROR BIT 
UNTIL YH 13> ALL TESTED 
CLEAR SRO BEFORE LEAVING 
RESET LOOP ON ERROR POINTER TO 1$ 


FARRER EERE REAR EEEEEEERREEEERREERREEREREREEEKEREEREKEEREEREKE EH 


STEST 13 SRO & PSwW DUAL ADDRESSING TEST 


THIS TEST CHECKS MORE OF THE ADDRESS DETECTION LOGIC BY 
VERIFYING THAT STATUS REGISTER 0 IS NOT EFFECTED BY WRITING 





CJKDACO KTF11=AA MMU DIAG 
12=MAR=80 07:56 


CJKDAC.P11 
(4) 
(4) 
(4) 
(4) 
(3) 
(2) 022144 
899 
900 022146 
901 022152 
902 022156 
903 022162 
904 022166 
905 022170 
906 
907 
908 
909 022172 
910 022176 
911 
919 
(3) 
(4) 
(4) 
(4) 
(4) 
(4) 
(3) 
(2) 022202 
920 022204 
921 022210 
922 022214 
923 022216 
924 
925 
926 
927 022220 
928 022226 
929 022234 
930 022236 
931 022240 
932 022242 
933 022246 
(2) 022246 
934 022250 
935 
943 
944 
945 
(3) 
(4) 
(4) 
(4) 
(4) 
(4) 
(3) 
(2) 022252 


000004 


177776 
177572 
000340 


177572 


177572 
177776 


177777 
177574 


172516 
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=24 
SRO & PSW DUAL ADDRESSING TEST 


:* TO THE PSwW AND THAT THE LOW BYTE OF STATUS REGISTER 0 
i* IS NOT EFFECTED BY WRITING TO ITS HIGH BYTE. THIS IS TO 
* SEE IF ADJACENT OUTPUTS ARE SHORTED ON THE ADDRESS DET. LOGIC. 
** 
*: : MADARA AAAASAALALALESLELALALASL ELS SESS SESS CST eT CC Pe PP ee PPP oC oo SS 
TST13: SCOPE 
1$: CLR PSW ZCLEAR THE PSW 
CLR SRO CLEAR STATUS REGISTER 0 
MIPS #340 [SET PRIORITY 7 IN LOW BYTE OF PSW 
MOV SRO,RO ;READ STATUS REGISTER 0 
BEQ 23 CH IF IT WAS STILL 0 
ERROR 13 3 SRO EFFECTED BY A WRITE TO THE PSW 
“FOR TIGHTER SCOPE LOOP 
:REPLACE, ERROR CALL WITH 
1$°' = 000767 
2$: CLR SRO BE SURE SRO IS 0 BEFORE LEAVING 
CLR PSW “BE SURE PSW IS 0 BEFORE LEAVING 
J EAR EE REEEREEEKERERKEKEKEREREKEREEEKEREEEREEKEKEEKEKKKRK 
:#TEST 14 TEST THAT SR1 READS ALL ZEROS 
- THIS TESTS CHECKS THAT STATUS REGISTER 1 
* RESPONDS WITH ALL ZEROS, THAT ONLY BITS<5:4> 
3* OF STATUS REGISTER 3 ARE WRITEABLE. 
** 
+: Zz 'MmALRAALASSAALSZELELE SES ELESE SES ESE SESS EPEC ET RPS ee eee eee eo oa 
TST14: SCOPE 
1$: MOV #-1,RO :FILL RO WITH ALL ONES 
MOV SR1,RO “READ SR1 INTO RO 
BEQ 2$ ‘BRANCH IF SR1 READS ALL ZEROS 
ERROR 14 :SR1 DID NOT READ ALL ZEROS 
:FOR TIGHTER SCOPE LOOP 
[REPLACE ERROR CALL WITH 
1000772 
2$: MOV #-1,SR3 [TRY TO WRITE ONES TO SR3 
cw #60.SR5 ‘ONLY BITS <5:4> SHOULD BE ONES 
ERROR 12 :DIDN'T READ BACK A '%60°" 
3$: RESET [CLEARS SR3 
a TST SR3 :VERIFY THAT IT WAS CLEARED 
; BEQ TST15 BRANCH IF SR3 READ ALL ZEROS 
ERROR 12 :SR3 DIDN'T READ ALL ZEROS 
FRA EEEEEERKEEREEEERE EERE 
:#TEST 15 BIT TEST OF KERNEL & USER PAR'S 
4 THE FOLLOWING TEST CHECKS THE BITS <15:00> OF BOTH THE KERNEL 
j* AND USER PAGE ADDRESS REGISTERS. A ‘0’' IS ROTATED THRU 
i* THE REGISTERS FROM LEFT TO RIGHT. 
** 
+: s 'MASASARBEASLALALELESESESELSSE LESSEE ESE SER SEC CECE RRC SEE SECS C LOSS S SY 
TST15: SCOPE 


SEQ 0038 
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022254 
0 


022370 
022372 


022416 


022420 
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000737 
012737 


172340 
000010 
022272 


077777 
022314 


000002 
177660 
177640 
022254 


172300 
000010 
022410 


077777 


MACY11 30A(1052) 
T15 


001110 


001110 


001110 


001110 


1$: 


4$: 
5$: 


6$: 


7$: 


“" 
12=MAR=80 08:00 
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BIT TEST OF KERNEL & USER PAR'S 


MOV 


#KIPARO,RO 
#3$.SLPERR 
(ROS 

(RO) ,R1 

4$ 

11 


#077777 ,R4 
ff -SLPERR 


R4, (RO) 


(RO) ,R2 
Rs Re 


MUIPARO,RO 
#1$,$LPERR 


R3,3$ 
laa ae 


= LOAD witty OF FIRST PAR IN RO 
; SETUP _R3 TO COUNT 
7SET LOOP ON ERROR POINTER TO 3$ 
:CLEAR THE PAR 
READ THE PAR INTO R1 
;BRANCH IF PAR CLEARED OK 
NOT CLEAR 


sPAR WOULD L 
FOR TIGHTER SCOPE LOOP 
sRERUACE, E ERROR CALL WITH 


;LOAD "WALKING 0° TEST cea to" IN R4 
2 SET ‘"? = Ay POINTER TO 5$ 
[CLEAR THE PAR BEFORE LOADING DATA 
BIT SET ym TEST PATTERN INTO THE PAR 
READ THE PAR INTO R2 
SDOES DATA WRITTEN=DATA READ? 
BRANCH IF YES 
SETUP FOR ERROR REPORTING 
;PAR BITS DID NOT SET CORRECTLY 
;FOR TIGHTER SCOPE LOOP 
:REPLACE ERROR CALL WITH 
5$* = 000767 


:SET THE C-BIT FOR THE aging & INST. 
ROTATE THE TEST PATTERN IN R 

BRANCH BACK IF MORE BITS TO Test 
:GET NEXT PAR ADDRESS IN RO 

BRANCH BACK UNTIL ALL PAR'S TESTED 
SBR TF os * BEEN TESTED 


LOAD FIRST USER PAR ADDR. IN RO 

BRANCH BACK TO TEST USER PAR'S 

z:RESET LOOP OR ERROR POINTER TO 1$ 

s;LEAVE TEST WITH BITS <11:1>=1 IN ALL PAR'S 


FE hahalshalabiolalalalelalabeltalahobobsoiabobeblghobeelahaie telctteltahebdd iebeabet tbat 


:*TEST 16 


4$: 


Ww mJ yh Se Be Be Be Be Be 
FP AW WW +e eee 
ee os ee 4 

— 


THE FOLLOWING ag CHECKS THE BITS <14:8> AND 
KERNEL AND USER PAGE DESCRIPTOR REGISTERS. 
THRU THE REGISTERS FROM LEFT TO RIGHT. Some TEST 


BIT TEST OF KERNEL & USER PDR'S 


> ae OF BOTH THE 
"'0'' IS ROTATED 
PATTERNS Fee 


BE LOADED MORE THAN ONCE DUE TO THE UNUSED BITS IN THE PDR’ 


SCOPE 


ox jPoR0. RO 
#35, S$LPERR 
(ROS 

(RO) ,R1 

4$ 

11 


#077777 ,R4 


SRE KE 


LOAD ADDRESS OF FIRST PDR IN RO 
TO COUNT 8 
ON ERROR POINTER TO 3$ 


THE PDR 
READ THE PDR INTO R1 
:BRANCH IF PDR CLEARED OK 
a WOULD NOT CLEAR 
OR TIGHTER SCOPE LOOP 
REPLACE ERROR CALL WITH 


;*BR 3$" 
LOAD "WALKING '0'' TEST PATTERN IN R4 


SEQ 0039 
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1001 


38 


SESR52 


WONAUSWN—O 


a oe SS SS 2 2 SS Ss SS YS SS SY SS 
at SS SY YY 


eleolelelelelelolelole) 


3 


1021 
10 


022424 


022452 


022454 


022512 


022514 
20 
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012737 
0 


10300 

012700 
000735 
012737 


000004 


012700 


022432 


100361 


000002 
177620 
177600 
022372 


172340 
022532 
000010 
177777 


177400 


022564 
177777 
000001 


000377 


4 
MACY11 sc) aad 12-MAR-80 08:00 ERAGE 1=26 


001110 


001110 


001170 


001110 


BIT TEST OF KERNEL & USER PDR'S 
MOV #5$ ,SLPERR ;SET LOOP ON ERROR POINTER TO 5$ 


CLR (ROS ; CLEAR THE PDR BEFORE LOADING DATA 
MOV R4,R1 “LOAD DATA INTO R1 
BIC #100361,R1 [MASK UNUSED BITS OUT OF THE DATA 
BIS R1, (RO) ‘BIT SET THE TEST PATTERN INTO THE PDR 
MOV (RO) ,R2 :READ THE PDR INTO R2 
CMP R1,Re SDOES DATA WRITTEN=DATA READ? 
BEQ 6$ ‘BRANCH IF YES 
ERROR 12 :PDR BITS DID NOT SET CORRECTLY 
“FOR TIGHTER SCOPE LOOP 
;REPLACE ERROR CALL WITH 
:' BR 3S" = 000767 
6$: SEC :SET THE C-BIT FOR THE ROTATE INST. 
ROR RG SROTATE THE TEST PATTERN IN RG 
BCS 5$ ‘BRANCH BACK IF MORE BITS TO TEST 
ADD #2.R0 ;GET NEXT PDR ADDRESS IN RO 
SOB R3,3$ ;BRANCH BACK UNTIL ALL PDR'S TESTED 
CMP AUIPDR7+2,RO ZHAVE USER PDR’ S BEEN TESTED? 
MOV #UIPDRO,RO [LOAD FIRST USER PDR ADDR. IN RO 
BR $ *BRANCH BACK TO TEST USER PDR'S 
7$: MOV #1$,$LPERR ‘RESET LOOP ON ERROR POINTER TO 1$ 
TLEAVE TEST WITH ALL WRITEABLE BITS IN 
TALL PDR'S = 1 
FERRER ERE RARER EERE KERREEEREKERERKEEEEEEREREEEREREEE 
:STEST 17 TEST FOR DUAL BYTE ADDRESSING OF KERNEL & USER PAR’S 
ae THE FOLLOWING TEST WRITES TO BOTH BYTES OF THE KERNEL & USER 
:* PAR'S SEPERATELY TO SEE THAT WRITING TO ONE DOES NOT EFFECT 
i THE OTHER. 
** 
OTITITITI IIIT TT TTT TTT TTT TTI Tit Titi tit iT ttt itTititiTiTLiTTTTeT Tet 
TST17: SCOPE 
1$: MOV #KIPARO,RO ;LOAD ADDRESS OF FIRST PAR INTO RO 
2$: MOV #3$,.$LPERR :SET LOOP ON ERROR POINTER TO 3$ 
MOV #10.R3 [LOAD LOOP COUNTER TO D0. : PAR*S 
3$: MOV #-1-R1 ‘LOAD TEST PATTERN INTO R 
CLR (ROS [CLEAR THE PAR 
MOVB R17, (RO) ;WRITE 1°S TO THE LOW BYTE OF THE PAR 
MOV (RO) ,R2 READ THE ENTIRE PAR INTO R2 
BIC #177400,R1 “MASK HIGH BYTE & UNUSED BITS our OF THE DATA 
CMP R1,R2 [WAS ONLY THE LOW BYTE WRITTEN T 
BEQ 4$ ‘BRANCH IF YES 
ERROR 15 ‘HIGH BYTE EFFECTED BY WRITING LOW BYTE IN PAR 
[FOR TIGHTER SCOPE LOOP 
:REPLACE ERROR CALL WITH 
BR 3S" 66 
4$: MOV #5$,$LPERR SET LOOP ON ERROR POINTER TO 5$ 
5$: CLR (ROS ‘Cr EAR THE PAR 
MOV ps R1 [LOAD TEST, PATTERN INTO R1 
MOVB R17 T<RQ) [WRITE 1°S TO THE HIGH BYTE OF THE PAR 
MOV (RO) R *READ THE ENTIRE PAR INTO R2 


BIC #000859, R1 *MASK LOW BYTE 


SEQ 0040 


C 4 a 
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CJKDAC.P11 12-MAR-80 07:56 T17 TEST FOR DUAL BYTE ADDRESSING OF KERNEL & USER PAR'S SEQ 0041 

1056 022604 020102 CMP R1,R2 7 WAS ONLY THE HIGH BYTE WRITTEN 10? 

1057 022606 001401 BEQ 6$ CH _IF YES 
1058 022610 104015 ERROR 15 LOW BYTE EFFECTED BY WRITING HIGH BYTE IN PAR 
1059 FOR TIGHTER SCOPE LOOP 

1060 ;REPLACE _ERROR CALL WITH 

1061 5*' = 00076 

1062 022612 062700 000002 6$: ADD #2,R0 PUT ADDRESS OF NEXT PAR IN RO 

1063 022616 077333 SOB R3,3$ BRANCH BACK UNTIL 8 PAR'S TESTED 

1064 022620 022700 177660 CMP MUIPAR7+2 ,RO SHAVE USER PAR'S BEEN TESTED 

1065 022624 103003 BHIS 7 BRANCH IF YES 
1066 022626 012700 177640 MOV MUIPARO,RO LOAD ADDRESS OF FIRST an ate IN RO 
1067 022632 900732 BR 23 BRANCH BACK TO TEST USER P 

1Gee 022634 012737 622514 001110 7$: MOV #1$,$LPERR RESET LOOP ON ERROR POINTER 10 1$ 
1077 FERRER REE AREK ERE EERE REEREKRKEEEEEKEKREEE 

Se : TEST 20 TEST FOR DUAL BYTE ADDRESSING OF KERNEL & USER PDR'S 

(4) i THE FOLLOWING TEST WRITES TO BOTH BYTES OF THE KERNEL & USER 

(4) :* PDR'S SEPERATELY TO SEE THAT WRITING TO ONE DOES NOT EFFECT 

744 i* THE OTHER. 

od 

(3) DUIS EEA ESOS SISISIIIISISIISIIIINIEI IO IO IOI OIOIOOIOIIISIIIDII III III III IO 
10h 022642 000004 TST20: SCOPE 
1079 022644 012700 172300 1$: MOV #K IPDRO,RO LOAD ADDRESS OF FIRST ren INTO RO 

1080 022650 012737 022662 001110 28: MOV #3$,$LPERR SET LOOP ON ERROR POINTER TO 3$ 

1081 22656 012703 000010 MOV #10,R3 ;LOAD LOOP COUNTER TO DO : PDR'S 

1082 022662 012701 177777 3$: MOV #-1,R1 ;LOAD TEST PATTERN INTO R1 

1083 022666 005010 CLR (RO) CLEAR THE PDR 

1084 022670 110110 MOVB R1, (RO) sWRITE 1°S TO THE LOW BYTE OF THE PDR 
1085 022672 011002 MOV (RO) ,Re =READ THE ENTIRE PDR INTO R2 

1086 622674 042701 177761 BIC #177761,R1 MASK HIGH BYTE & UNUSED BITS OUT OF DATA 
1087 022700 020102 CMP R1,R2 WAS ONLY THE LOW BYTE WRITTEN TO? 

1088 022702 001401 BEQ 4$ :BRANCH IF YES 

1089 022704 104015 ERROR 15 HIGH BYTE EFFECTED BY WRITING LOW BYTE IN PDR 
1090 FOR TIGHTER SCOPE LOOP 

1091 :REPLACE ERROR CALL WITH 

1092 :'BR 3$"' = 000766 

1093 022706 012737 022714 001110 4$: MOV #5$,SLPERR 3SET LOOP ON ERROR POINTER TO 5$ 

1094 022714 005010 5$: CLR (RO) :CLEAR_THE PDR 

1095 022716 012701 177777 MOV #-1,R1 [LOAD TEST PATTERN INTO R1 

1096 022722 110160 000001 MOVB R1,1(RO) WRITE 1°S TO THE HIGH BYTE OF THE PDR 
1097 022726 011002 MOV (RO) ,R2 READ THE ENTIRE PDR INTO R2 

1098 042701 100377 BIC #100377,R1 MASK LOW BYTE & UNUSED BITS OUT OF DATA 
1099 022734 020102 CMP R1,R2 :WAS ONLY THE HIGH BYTE WRITTEN TO? 

1100 022736 001401 BEQ $ BRANCH IF YES 

1101 022740 104015 ERROR 15 :LOW BYTE EFFECTED BY WRITING HIGH BYTE IN PDR 
1102 FOR TIGHTER SCOPE LOOP 

1103 ;REPLACE ERROR CALL WITH 

1104 :‘BR 58°" = 000765 

1105 022742 062700 000002 6$: ADD #2,R0 ;PUT ADDRESS OF Aig PDR IN RO 

1106 022746 077333 SOB R3,3$ BRANCH BACK UNTIL 8 PDR'S TESTED 

1107 022750 022700 177620 CMP MUIPDR7+2 ,RO sHAVE USER POR" S BEEN TESTED? 

1108 022754 103003 BHIS (CH IF YES 

1109 022756 012700 177600 MOV #UIPDRO,RO [LOAD ADDRESS OF FIRST USER PDR IN RO 
1110 022762 000732 BR 2$ BRANCH BACK TO TEST USER PDR'S 
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TEST FOR DUAL BYTE ADDRESSING OF KERNEL & USER PDR'S 


7$: MOV #1$,$LPERR :RESET LOOP ON ERROR POINTER TO 1$ 
FRR ERE KERR REE EERE REE EREKKEE EE 
:#TEST 21 PAR=PDR DUAL ADDRESSING TEST 
‘ie THE FOLLOWING TEST SETS ALL OF THE WRITEABLE BITS TO 1, 
:* IN THE SIXTEEN (16) PAR'S AND PDR'S USING THE ‘'SETREG'' 
* SUBROUTINE AND THEN CLEARS JUST ONE OF THEM. THE ‘'CMPR 
3* SUBROUTINE IS USED TO READ ALL OF THE PAR'S AND PDR'S TO SEE 
te THAT ONLY REGISTER WAS CLEARED IN RESPONSE TO THAT ONE 
:* PAR OR PDR ADDRESS. THE ‘'CMPREG'’ SUBROUTINE REPORTS THE 
;* ADDRESS OF ANY REGISTER WHOSE BITS DID NOT REMAIN SET WHEN 
:* ANOTHER REGISTER WAS CLEARED. 
SL RARER EEE EEE REE EERREERERERKEK 
TST21: SCOPE 
1$: MOV #2$,$LPERR ;SET LOOP ON ERROR POINTER 2$ 
MOV #10.R3 “LOAD LOOP COUNTER WITH AN 8 
MOV #KIPDRO,RO SLOAD ADDRESS OF FIRST KERNEL PDR AND RO 
JSR PC, SETREG TSET ALL BITS IN ALL PAR'S IN PDR'S 
2s: MOV #KERSTK,KSP :SETUP STACK POINTER 
CLR (RO) ‘CLEAR OF THE KERNEL PDR" 
JSR PC, CMPREG [SEE IF OTHER PAR/PDR'S WERE EFFECTED 
MOV #-1, (RO)+ ;RESTORE ALL ONES, AND SETUP FOR NEXT PDR 
SOB R3,2$ OOP TO 2$ UNTIL ALL KERNEL PDR'S CHECKED 
MOV #3$, $LPERR 5 oP LOOP ON ERROR POINTER TO 3$ 
MOV #10.R3 ;LOAD LOOP COUNTER WITH AN 
MOV #KIPARO,RO [LOAD ADDRESS OF FIRST KERNEL PAR IN RO 
3$: MOV AKERSTK.KSP ‘SETUP STACK POINTER 
CLR (RO) CLEAR ONE OF THE KERNE , 
JSR PC, CMPREG SSEE IF OTHER PAR/PDR'S WERE EFFECTED 
MOV #-1, (RO)+ SRESTORE ALL ONES, AND SETUP FOR NEXT PAR 
SOB R3, 3$ [LOOP TO 3$ UNTIL ALL KERNEL PAR'S CHECKED 
MOV #4$,$LPERR 7SET LOOP ON ERROR POINTER 0 4$ 
MOV #10. [LOAD LOOP COUNTER WITH AN 8” 
MOV #UIPDRO,RO ‘LOAD ADDRESS OF FIRST USER PDR IN RO 
4$: MOV #KERSTK.KSP ‘SETUP STAcK POINTER 
CLR (RO) ;CLEAR ONE OF THE USER PDR'S 
JSR PC, CMPREG SEE IF OTHER PAR/PDR'S WERE EFFECTED 
MOV #~-1, (RO)+ ;RESTORE ALL ONES, AND SETUP FOR NEXT UPDR 
SOB és [LOOP TO 4$ UNTIL ALL USER POR’ S CHECKED 
MOV #5$,$LPERR [SET LOOP ON ERROR POINTER 0 5$ 
MOV *R3 [LOAD LOOP COUNTER WITH aN Bo 
MOV #UIPARO,RO [LOAD ADDRESS OF FIRST USER PAR IN RO 
5$: MOV AKERSTK.KSP SSETUP STACK POINTER 
CLR (RO) [CLEAR ONE OF THE USER PAR'S 
JSR PC, CMPREG [SEE IF OTHER PAR/PDR'S PERE EFFECTED 
MOV #-1, (RO)+ ;RESTORE ALL ONES, SETUP FOR NEXT UPAR 
SOB R3,5$ “LOOP TO 5$ UNTIL ALL USER PAR" S CHECKED 
_ MOV #1$,SLPERR :SET LOOP ON ERROR POINTER TO 1$ 
LPR ARA RR AAERAAEEAEEEEEEE EERE EAREREREREEEAEREKEE EE 
S*TEST 22 TEST THAT PAR=PDR'S NOT AFFECTED BY RESET 


** 
i* THIS TEST CHECKS TO SEE THAT THE KERNEL OR USER PAR/PDR'S ARE 
3* NOT AFFECTED BY THE EXECUTION CF A ‘RESET’ INSTRUCTION. THE 
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TEST THAT PAR=PDR'S NOT AFFECTED BY RESET 


:* ‘'SETREG'' SUBROUTINE IS USED TO SET ALL WRITEABLE BITS TO A ‘‘1'' IN 
te THE PAR/PDR'S. THEN THEY ARE READ TO SEE THAT THEY REMAINED 
:* UNCHANGED 
** 
SUISSE IOISOIEIISI IIIS IOOIOISIEIEISIIOOIOIOIIIOIOISIIOUIDIUIDIDII ODI ID 
TST22: SCOPE 
1$: JSR PC, SETREG SET ALL BITS IN ALL _PAR'S AND PDR'S 
RESET S ISSUE AN ‘'INIT'' BY EXECUTING A RESET 
MOV #K1PDRO, RO ;LOAD ADDRESS OF FIRST ARERNEL PDR IN RO 
MOV 0,R4 LOAD LOOP COUNTER WITH AN 8 
2s: MOV t Ros” R1 {READ A KERNEL PDR INTO R1 
CMP #77416,R1 TARE ALL THE BITS STILL SET? 
BEQ 3$ ;BRANCH IF YES 
ERROR 55 KERNEL PDR AFFECTED BY A RESET 
‘FOR TIGHTER SCOPE LOOP 
:REPLACE ERROR CALL WITH 
:'BR 2$"' = 000773 
3$: ADD #2,RO ;FORM ADDRESS OF NEXT KERNEL PDR 
SOB R4,2$ -LOOP TO 2$ UNTIL ALL KERNEL PDR® S CHECKED 
MOV #KIPARO,RO ;LOAD ADDRESS OF FIRST ARERNEL P AR IN RO 
MOV #10,R4 :LOAD LOOP COUNTER WITH AN 8 
4$: MOV (RO) ,R1 TREAD A KERNEL PAR INTO R1 
CMP #177777,R1 TARE ALL THE BITS STILL SET? 
BEQ 5$ ;BRANCH IF YES 
ERROR 55 [KERNEL PAR AFFECTED BY A RESET 
[FOR TIGHTER SCOPE LOOP 
:RE PLACE ERROR CALL WITH 
:'BR 4$"' = 000773 
S$: ADD #2,R0 [FORM ADDRESS OF NEXT KERNEL PAR 
SOB R4,4$ [LOOP TO 4$ UNTIL ALL KERNEL PAR'S CHECKED 
MOV AUIPDRO,RO ;LOAD ADDRESS OF FIRST USER PDR IN RO 
MOV #10,R4 “LOAD LOOP COUNTER WITH AN 8 
6$: MOV (RO) RI SREAD A USER PDR INTO R1 
CMP #77616,R1 TARE ALL THE BITS STILL SET? 
BEQ 7$ *BRANCH IF YES 
ERROR 55 ZUSER PDR AFFECTED BY A RESET 
:FOR TIGHTER SCOPE LOOP 
;REPL LACE ERROR CALL WITH 
:'BR 6$"° = 000773 
7$: ADD #2,RO [FORM ADDRESS OF NEXT USER PDR 
SOB R4,6$ sLOOP TO 6$ UNTIL ALL USER PDR'S CHECKED 
MOV MUIPARO,RO :LOAD ADDRESS OF FIRST USER PAR IN RO 
MOV #10,R4 :LOAD LOOP COUNTER WITH AN 8 
8$: MOV (RO) .R1 ;READ A USER PAR INTO RN 
CMP #177777,R1 ARE ALL THE BITS STILL SET? 
BEQ 9$ {BRANCH IF YES 
ERROR 55 [USER PAR AFFECTED BY A RESET 
:FOR TIGHTER SCOPE LOOP 
:REPLACE ERROR CALL WITH 
8$" = 000773 
9$: ADD #2,R0 :F ORM ADDRESS OF NEXT USER PAR 
SOB R4,8$ OOP TO 8$ UNTIL ALL USER PAR'S CHECKED 
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3) :*TEST 23 RELOCATION & ADDER TEST (NO CARRIES) 

(4) os THE FOLLOWING. TEST SETS UP THE KERNEL PAR'S AND PDR'S 

(4) ie FOR THE REST OF THE PROGRAM. IT THEN USES DIFFERENT 

(4) ie VIRTUAL ADDRESSES AND DIFFERENT VALUES FOR KERNEL PAR 4 

(4) ie TO PUT DIFFERENT PATTERNS AT THE INPUTS OF THE 

(4) te MEMORY MANAGEMENT ADDER. THE VALUES ARE SUCH 

(4) te THAT NO CARRIES ARE GENERATED OUT OF THE ADDER. 

** 

(4) :* THE METHOD USED TO SEE THAT THE RIGHT PHYSICAL BUS ADDRESS 

(4) :* IS FORMED BY THE ADDER IS TO WRITE A PATTERN TO VIRTUAL 

(4) ie LOCATION WITH MEMORY MGMT., AND 

(4) te THEN READ THAT LOCATION USING THE PHYSICAL ADDRESS THAT SHOULD 
(4) te HAVE BEEN FORMED TO SEE IF THE TEST PATTERN GOT THEIR. 

(4) te BIT AND 18-B81T ADDRESSING A).. USED. 

(3) PETIITITT IIIT ITIL LT ETE LITT TLE LETT ELE LEE LEE 
, @) 023346 000004 TS123: SCOPE 
1238 023350 012700 172340 1$ MOV #KIPARO,RO ZLOAD ADDRESS OF FIRST KERNEL PAR IN RO 
1239 023354 005001 CLR RI :CLEAR RI 
1240 023356 012702 000007 MOV »R2 “LOAD LOOP COUNTER WITH A 7 

1241 023362 010120 2$: MOV 44 4 (RO? + [MAP KERNEL PAR'S TO PAGES 0-6 (4K EACH) 
1242 023364 062701 000200 ADD #200,R 
1243 023370 077204 SOB R2, — : LOOP UNTIL KIPARO = KIPAR6 ARE LOADED 
1244 023372 012710 007600 MOV #7600, (RO) KIPAR? TO THE I/O PAGE 

1245 023376 012700 172300 MOV #KIPDRO,RO TOAD ADDRESS OF FIRST KERNEL PDR IN RO 
1246 023402 012701 077406 MOV #77406,R1 ‘LOAD PDR DATA INTO R1 

1247 023406 012702 000010 MOV #10,R2 [LOAD LOOP COUNTER WITH AN 8 

1248 023412 010120 3$: MOV R1, (RO) + ‘MAP ALL 8 PAGES 128 BLOCKS, UPWARD 
1249 023414 077202 SOB R2,3$ : EXPANDABLE, READ/WRITE 

1251 023416 012737 023416 001110 4S: MOV #4$,S$LPERR :SET LOOP ON ERROR POINTER TO 4$ 

(1) 023424 012700 067776 MOV #67776,RO [LOAD PHYSICAL ADDR. PBA INTO RO 

(1) 023430 012701 107776 MOV #107776,R1 LOAD V VIRTUAL ADDR. VBA INTO R1 

(1) 023434 012702 125250 MOV #125250.R2 OAD TEST PATTERN INTO R2 

(1) 023440 012704 000600 MOV #600,R4°:LOAD R4° UITH PAR VALUE 

(1) 023444 010437 172350 MOV R4,KIPARG ;LOAD KERNEL PAR 4 BITS <15: 00> 

(1) 023450 011037 001176 MOV (RO) ,STMPO + SAVE CONTENTS. A AT TEST LOCATION 

(1) 023454 052737 000021 177572 BIS #21,5RO [TURN ON MEM. MGNT. 22-BIT ADDRESSING 
(1) 023462 010211 MOV R2, (R1) LOAD 125250 us USING ADDER (PAR4 + VIRT ADDR.) 
(1) 023464 000005 RESET STURN OFF MEMORY MGMT. 

(1) 023466 011003 MOV (RO) ,R3 TREAD 0 o5260 BA BACK WITHOUT USING MEM. MGMT. 
(1) 023470 013710 001176 MOV $TMPO, (RO) SRESTORE ORIGINAL CONTENTS TO est Loc. 
(1) 023474 020203 CMP R2,R3 [WAS SAME PATTERN READ BACK THAT WAS 
(1) ;WRITTEN USING MEMORY MANAGEMENT? 

(1) 023476 001405 BEQ 5$ CH IF YES 

(1) 023500 010137 001306 MOV R1,VIRT1 : SAVE VIRTUAL ADDR. TO FORM PHYS. ADDR 
(1) 023504 004737 035452 JSR PC’ FORMPA [GO FORM PHYSICAL ADDRESS FOR, TYPING 
(1) 023510 104017 ERROR 17 TEST LOCATION DID NOT HAVE PATTERN 

(1) :THAT SHOULD HAVE BEEN WRITTEN TO IT. 
(1) : APPARENTLY PHYSICAL ADDR. WAS 

(1) D WRONG BY ADDERS USING 

(1) Tne VIRTUAL ADDR. AND KIPAR4 

(1) [FOR TIGHTER SCOPE LOOP 

(1) SREPLACE ERROR CALL WITH 

(1) :'BR 4$"° = 000742 
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(1) 023512 5$: 
1252 023512 012737 023512 001110 6$: MOV #6$,$LPERR :SET LOOP ON ERROR POINTER TO 6$ 
(1) 023520 012700 067776 MOV #67776,RO ‘LOAD PHYSICAL ADDR. PBA INTO RO 
(1) 023524 012701 102576 MOV #102576,R1 :LOAD VIRTUAL ADDR. VBA INTO R1 
(1) 023530 012702 125251 MOV #125251,R2 LOAD TEST PATTERN INTO R2 | 
(1) 023534 012704 000652 MOV #652,R4 :LOAD R4 WITH PAR VALUE 
(1) 023540 010437 172350 MOV R4,KIPARS ;LOAD KERNEL PAR 4 BITS <15: 00> 
(1) 023544 011037 00117 MOV (RO), $TMPO sSAVE CONTENTS AT TEST LOCATION 
(1) 023550 052737 000021 177572 BIS #21,5RO :TURN ON MEM. MGNT. 22-BIT ADDRESSING 
(1) 023556 010211 MOV R2, (R1) ; LOAD is. USING ADDER (PAR4 + VIRT ADDR.) 
(1) 023560 000005 RESET - TURN OFF MEMORY MGMT. 
(1) 023562 011003 MOV (RO) .R3 SREAD 6267 BACK WITHOUT USING MEM. MGMT. 
(1) 023564 013710 001176 MOV sTmP0, (RO) ;RESTORE ORIGINAL CONTENTS TEST LOC. 
(1) 023570 020203 CMP R2,R3 WAS SAME PATTERN READ BACK THAT WAS 
(1) ZWRITTEN USING MEMORY MANAGEMENT? 
(1) 023572 001405 BEQ 7$ FY 
(1) 023574 010137 001306 MOV R1,VIRT1 + SAVE VIRTUAL ADDR. TO FORM PHYS. ADDR 
(1) 023600 004737 035452 JSR PC; FORMPA :GO FORM PHYSICAL ADDRESS FOR TYPING 
(1) 023604 104017 ERROR 17 ;TEST LOCATION DID NOT HAVE PATTERN 
(1) ;THAT SHOULD HAVE BEEN WRITTEN TO IT. 
(1) ;APPARENTLY PHYSICAL ADDR. WAS 
(1) D WRONG BY ADDERS USING 
(1) THE VIRTUAL DR. AND KIPAR 
(1) :FOR TIGHTER SCOPE LOOP 
(1) :REPLACE ERROR CALL WITH 
(1) :'BR 6$'' = 000742 
(1) 023606 7$: 
1253 023606 012737 023606 001110 8$: MOV #8$,SLPERR ;SET LOOP ON ERROR POINTER TO 8$ 
(1) 023614 012700 067776 MOV #67776,RO *LOAD PHYSICAL ADDR. PBA INTO RO 
(1) 023620 012701 105996 MOV #105276,R1 :LOAD V VIRTUAL ADDER. VBA INTO R1 
(1) 023624 012702 125252 MOV #125252,R2 LOAD TEST PATTERN INTO R2 
(1) 023630 012704 000625 MOV #625,R4 :LOAD R4 WITH PAR VALUE 
(1) 023634 010437 172350 MoV R4,KIPARS ;LOAD KERNEL PAR 4 BITS <15:00> 
(1) 023640 011037 001176 MOV (RO). STMPO :SAVE CONTENTS AT TEST LOCATION 
(1) 023644 052737 000021 177572 BIS #21,5RO [TURN ON MEM. MGNT. 22-B81T ADDRESSING 
(1) 023652 010211 MOV R2, (R1) LOAD 125252 Us USING ADDER (PAR4 + VIRT ADDR.) 
(1) 023654 000005 RESET 7 TURN OF Y MGMT. 
(1) 023656 011003 MOV (RO) .R3 TREAD 155260 BA BACK WITHOUT USING MEM. MGMT. 
(1) 023660 013710 001176 MOV sTmPO, (RO) SRESTORE ORIGINAL CONTENTS TO fest LOC. 
(1) 023664 020203 CMP R2,R3 [WAS SAME PATTERN READ BACK THAT WAS 
(1) [WRITTEN USING MEMORY MANAGEMENT? 
(1) 023666 001405 BEQ 9$ [BRANCH IF YES 
(1) 073670 010137 001306 MOV R1,VIRT1 + SAVE VIRTUAL ADDR. TO FORM PHYS. ADDR 
(1) 023674 004737 035452 JSR PC; FORMPA [GO FORM PHYSICAL ADDRESS FOR TYPING 
(1) 023700 104017 ERROR 17 :TEST LOCATION DID NOT HAVE PATTERN 
(1) * THAT SHOULD HAVE BEEN URIITEN TO IT. 
(1) SAPPARENTLY PHYSICAL ADDR. WAS 
(1) D WRONG BY ADDERS USING 
(1) Tne VIRTUAL ADDR. AND KIPAR4 
(1) ‘FOR TIGHTER SCOPE LOOP 
(1) SREPLACE ERROR CALL WITH 
(1) :'BR 8S" = 000742 
) 023702 9$: 
1255 023702 012737 023702 001110 10$: MoV #10$,$LPERR :SET LOOP ON ERROR POINTER TO 10$ 
1256 023710 012700 177776 MOV #PSw,RO ;LOAD PHYS. ADDR. OF PSwW INTO RO 
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(NO CARRIES) 


MOV #100076,R1 :LOAD VIRTUAL ADDR. FOR PSW INTO R1 
MOV #030340,R2 ‘LOAD DATA FOR PSW IN R2 
MOV #7777, RG “LOAD R4 WITH PAR VALUE 
MOV R4 KIPARG [LOAD KERNEL PAR 4 BITS <11:00> 
CLR (RO) i CLEAR THE PSW 
BIS #B1T0,SRO ON ‘MEMORY MANAGEMENT’’ (18 BIT ADDRESSING) 
MOV R2, (R1) [DAD PSwW USING ADDER (PARG + VIRT ADDR. 
RESET :TURN OFF MEM. MGMT (SRO=0) 
MOV (RO) ,R3 SREAD Psu BACK WITHOUT USING MEM. MGMT. 
CLR (RO) [CLEAR THE PSW 
BIC #37,R3 SMASK T-BIT & CC ,BITS OUT OF DATA READ 
CMP R2,R3 :WAS PSw WRITTEN? 
BEQ 11$ F YES 
MOV R1,VIRT1 + SAVE VIRTUAL ADDR. TO FORM PHYS. ADDR 
JSR PC; FORMPA :GO FORM PHYSICAL ADDR. FOR TYPING 
ERROR 17 *PSwW DID NOT HAVE DATA THAT IT SHOULD HAVE, 
[APPARENTLY PHYS. ADDR. OF PSW WAS 
‘NOT FORMED BY ADDERS USING TH 
VIR ADDR. AND 
[FOR TIGHTER SCOPE LOOP 
:REP LACE ERROR CALL WITH 
:'BR 10$'' = 000742 
11$: MOV #11$, SLPERR ‘SET LOOP ON ERROR POINTER TO 11$ 
MOV #PSW : PHYS. ADDR. OF PSW INTO RO 
MOV Fi T5O.RI LOAD VIRTUAL ADDR. FOR PSw INTO R1 
MOV #030240.R2 ‘LOAD DATA FOR PSW IN R2 
MOV #177600, ‘LOAD R4 WITH V 
MOV R4,.KIPARG :LOAD KERNEL PAR 4 BITS <15:00> 
BIS #21,SRO ON MANAGEMENT’ (22 BIT ADDRESSING) 
V R2, (R1) ; LOAD PSW USING ADDER (PAR4 + VIRT. ADDR. 
RESET “TURN OFF MEM. MGMT (SRO=0) 
V (RO) ,R3 [READ PSW BACK WITHOUT USING MEM. MGMT. 
CLR (RO) *CLEAR THE PSW 
BIC #37,R3 ‘MASK T-BIT ¢ cc Bits OUT OF DATA READ 
CMP R2,R3 “WAS PSW WRIT 
BEQ 12$ ‘BRANCH IF ves 
MOV R1,VIRT1 SSAVE VIRTUAL ADDR. TO FORM PHYSICAL ADDR. 
JSR PC; FORMPA :GO FORM PHYSICAL ADDR. FOR TYPING 
ERROR 1 :PSwW DID NOT HAVE DATA THAT IT SHOULD 
SHAVE, APPARENTLY PHYS. ADDR. OF PSW WAS 
:NOT FORMED BY ADDERS USING THE 
VIRTUAL ADDR. AND KIPAR4 
{FOR TIGHTER SCOPE LOOP 
;REPLACE ERROR CALL WITH 
"BR 11$'' = 00074 
12$: MOV #1$,$LPERR [RESET LOOP ON ERROR POINTER TO 1$ 
FARE EEEEREREEREEEREREREEREERERREEKEKEREEREKERE EE 
*STEST 24 RELOCATION & ADDER TEST (WITH CARRIES) 
"* 
te THE FOLLOWING TEST USES THE SAME METHOD AS THE PREVIOUS 
te TEST TO VERIFY MEMORY MANAGEMENTS ABILITY TO CONSTRUCT 
te PHYSICAL BUS ADDRESSES USING A VIRTUAL BUS ADDRESS AND THE 
* CONTENTS OF A PAGE ADDRESS REGISTER. HOWEVER, THE VALUES 
i* AND PATTERNS USED IN THIS TEST WILL GENERATE CARRIES 
:* AND CHELK ‘WRAPAROUND'' TO ADDRESS 000000 B 
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(4) :* USING VIRTUAL ADDR. 111490 AND KIPARG = 177664. 
(4) ie 22=BIT ADDRESSING IS USED 

(3) ETIIIITIIIT TIT IT TTT TT ITI TTT LITT L LT LLL ELLE EL LLL ELLE EEL E LLL 

2) 024076 000004 1$124: SCOPE 

1317 024100 1$: :KERNEL PAR'S AND PDR'S HAVE BEEN 

1318 ‘SETUP BY THE PREVIOUS TEST 

1319 024100 012737 024100 001110 2%: MOV #2$,$LPERR :SET LOOP ON ERROR POINTER TO 2$ 

(1) 024106 012700 066476 MOV #66476,RO ‘LOAD PHYSICAL ADDR. PBA INTO RO 

(1) 024112 012701 114376 MOV #114376,R1 :LOAD VIRTUAL ADDR. VBA INTO R1 
(1) 026116 012702 125253 MOV #125253.R2 LOAD TEST PATTERN INTO R2 
(1) 024122 012704 000521 MOV #521,R4 :LOAD RG WITH PAR VALUE 

(1) 024126 010437 172350 MOV R4, KIPARG AD KERNEL PAR 4 BITS <15:00> 
(1) 024132 011037 001176 é MOV (RO), $TMPO Aa CONTENTS AT TEST LOCATION 
(1) 026136 052737 000021 177572 BIS #21,5RO ‘TURN ON MGNT. 22-BIT ADDRESSING 
(1) 024144 010271 MOV R2, (R1) LOAD 129253 USING ADDER (PAR4 + VIRT ADDR.) 
(1) 024146 000005 RESET [TURN OFF MEMORY MGMT. 

(1) 024150 011003 MOV (RO) ,R3 ‘READ 125253 BACK WITHOUT USING MEM. MGMT. 
(1) 026152 013710 001176 MOV $TMPO, (RO) SRESTORE ORIGINAL CONTENTS TO TEST LOC. 
(1) 024156 020203 CMP R2,R3 [WAS SAME PATTERN READ BACK THAT WAS 
(1) ‘WRITTEN USING MEMORY MANAGEMENT? 
(1) 024160 001405 BEG 3$ ‘BRANCH IF YES 

(1) 024162 010137 001306 MOV R1,VIRT1 SSAVE VIRTUAL ADDR. TO FORM PHYS. ADDR 
(1) 024166 004737 035452 JSR PC; FORMPA ‘GO FORM PHYSICAL ADDRESS FOR TYPING 
(1) 024172 104017 ERROR 17 ;TEST LOCATION DID NOT HAVE PATTERN 
(1) THAT SHOULD HAVE BEEN WRITTEN TO IT. 
(1) * APPARENTLY PHYSICAL ADDR. WAS 
(1) ‘FORMED WRONG BY ADDERS USING 
(1) [THE VIRTUAL ADDR. AND KIPAR4 
(1) ‘FOR TIGHTER SCOPE LOOP 
(1) SREPLACE ERROR CALL WITH 
(1) BR 2$'' = 000742 
(1) 024174 3s: 

1320 024174 012737 024174 001110 4$: MOV #4$,$LPERR :SET LOOP ON ERROR POINTER TO 4$ 
(1) 024202 012700 062276 MOV #62276,RO ‘LOAD PHYSICAL ADDR. PBA INTO RO 
(1) 024206 012701 107376 MOV #107376,R1 ;LOAD VIRTUAL ADDR. VBA INTO R1 
(1) 024212 012702 125254 MOV #125254 .R2 LOAD TEST PATTERN INTO R2 
(1) 024216 012704 000527 MOV #527,R4 :LOAD RG WITH PAR VALUE 

(1) 024222 010437 172350 MOV R4, KIPARG :LOAD KERNEL PAR 4 BITS <15:00> 
(1) 024226 011037 001176 MOV (RO), STMPO + SAVE CONTENTS AT AT TESS LOCATION 
(1) 026232 052737 000021 177572 BIS #21,5RO STURN ON MEM, 22=BIT ADDRESSING 
(1) 024240 010271 MOV R?, (R1) ;LOAD 125254 USING’ ADDER (PAR4 + VIRT ADDR.) 
(1) 024242 000005 RESET ; TURN OF MEMORY MGMT. 

(1) 024244 011003 MOV (RO) ,R3 READ o5a8k BACK WITHOUT USING MEM. MGMT. 
(1) 024266 013710 001176 MOV STMPO, (RO) “RESTORE ORIGINAL CONTENTS TO est Loc. 
(1) 024252 020203 CMP R2,R3 ‘WAS SAME PATTERN READ BACK THAT WAS 
(1) :WRITTEN USING MEMORY MANAGEMENT? 
(1) 024254 001405 BEO 5$ ‘BRANCH IF Y 

(1) 024256 010137 001306 MOV R1,VIRT1 + SAVE VIRTUAL ADDR. TO FORM PHYS. ADDR 
(1) 024262 004737 035452 JSR PC’ FORMPA [GO FORM PHYSICAL ADDRESS FOR TYPING 
(1) 024266 104017 ERROR 17 ;TEST LOCATION DID NOT HAVE PATTERN 
(1) = THAT SHOULD HAVE BEEN WRITTEN TO IT. 
(1) * APPARENTLY PHYSICAL ADDR. WAS 
(1) -FORMED WRONG BY ADDERS USING 

(1) [THE VIRTUAL ADDR. AND KIPARG 
(1) ‘FOR TIGHTER SCOPE LOOP 
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(1) :REPLACE, ERROR CALL WITH 

(1) "BR 4$" = 000742 

(1) 024270 S$: 

1321 024270 012737 024270 001110 6$: MOV #6$, SLPERR :SET LOOP ON ERROR POINTER TO 6$ 

(1) 024276 012700 062076 MOV #62076 ,RO SLOAD PHYSICAL ADDR. PBA INTO RO 

(1) 024302 012701 104576 MOV #104576,R1 : LOAD VIRTUAL ADDR. VBA INTO R1 
(1) 024306 012702 125255 MOV #125255.R2 AD TEST PATTERN INTO R2 
(1) 024312 012704 000553 MOV #553,R4 :LOAD R4- tT PAR VALUE 

(1) 024316 010437 172350 MOV R4,KIPARS ZLOAD KERNEL PAR 4 BITS <15:00> 
(1) 024322 011037 001176 MOV (RO), $STMPO ‘SAVE CONTENTS AT TEST LOCATION 
(1) 024326 052737 000021 177572 BIS #21,5RO [TURN ON MEM. MGNT. 22-BIT ADDRESSING 
(1) 024334 010211 MOV R2, (R1) ; LOAD 125255 USING ADDER (PAR4 + VIRT ADDR.) 
(1) 024336 000005 RESET OFF MEMORY MGMT. 
(1) 024340 011003 MOV (RO) ,R3 “READ 125255 BACK WITHOUT USING MEM. MGMT. 
(1) 024342 013710 001176 MOV $TMPO, (RO) :RESTORE ORIGINAL CONTENTS TO TEST LOC. 
(1) 024346 020203 CMP R2,R3 WAS SAME PATTERN READ BACK THAT WAS 
(1) “WRITTEN USING MEMORY MANAGEMENT? 
(1) 024350 001405 BEQ 7$ ‘BRANCH IF YES 

(1) 024352 010137 001306 MOV R1,VIRT1 ‘SAVE VIRTUAL ADDR. TO FORM PHYS. ADDR 
(1) 024356 004737 035452 JSR PC; FORMPA :GO FORM PHYSICAL ADDRESS FOR TYPING 
(1) 024362 104017 ERROR 17 iTEST LOCATION DID NOT HAVE PATTERN 
(1) T SHOULD HAVE BEEN WRITTEN TO IT. 
(1) «APPARENTLY PHYSICAL ADDR. WAS 
(1) ‘FORMED WRONG BY ADDERS USING 
(1) ; THE VIRTUAL ADDR. AND KIPAR4 
(1) “FOR TIGHTER SCOPE LOOP 
(1) ;RE PLACE ERROR CALL WITH 
(1) BR 6$'' = 000742 

(1) 024364 7$: 

1322 024364 012737 024364 001110 8$: MOV #Bs SLPERR ;SET LOOP ON ERROR POINTER TO 8$ 
(1) 024372 012700 000000 MOV 00000,R [LOAD PHYSICAL ADDR. PBA INTO RO 
(1) 024376 012701 111400 MOV 1a 1206" 4 [LOAD VIRTUAL ADDR. VBA INTO R1 
(1) 024402 012702 125256 MOV #123296. R2 :LOAD TEST PATTERN INTO R2 
(1) 024406 012704 177664 MOV 177664 RG “LOAD R4 WITH PAR VALUE 

(1) 024412 010437 172350 MOV RG KIPARG ‘LOAD KERNEL PAR 4 BITS <15:00> 
(1) 024416 011037 001176 MOV (RO) ,$TMPO + SAVE CONTENTS AT AT TES! LOCATION 
(1) 024422 052737 000021 177572 BIS #21,SRO : TURN 22-B1T ADDRESSING 
(1) 024430 010211 MOV R2, (R1) SLOAD 5056" USING’ ADDER (PAR4 + VIRT ADDR.) 
(1) 024432 000005 RESET : TURN OFF MEMORY MGMT. 
(1) 024434 011003 MOV (RO) .R3 SREAD 125256 BACK WITHOUT USING MEM. MGMT. 
(1) 024436 013710 001176 MOV $TMPO, (RO) RESTORE ORIGINAL CONTENTS TO Test LOC. 
(1) 024442 020203 CMP R2,R3 [WAS SAME PATTERN READ BACK THAT WAS 
(1) ‘WRITTEN USING MEMORY MANAGEMENT? 
(1) 024444 001405 BEQ 9$ ‘BRANCH IF YES 

(1) 024446 010137 001306 MOV R1,VIRT1 :SAVE VIRTUAL ADDR. TO FORM PHYS. ADDR 
(1) 024452 004737 035452 JSR PC; FORMPA *GO FORM PHYSICAL ADDRESS FOR TYPING 
(1) 024456 104017 ERROR 17 :TEST LOCATION DID NOT HAVE PATTERN 
(1) T SHOULD HAVE BEEN WRITTEN TO IT. 
(1) «APPARENTLY PHYSICAL ADDR. WAS 
(1) “FORMED WRONG BY ADDERS USING 
(1) [THE VIRTUAL ADDR. AND KIPAR 
(1) [FOR TIGHTER SCOPE LOOP 
(1) ;REPLACE ERROR CALL WITH 
(1) :'BR 8$"' = 000742 

(1) 024460 9$: 

1323 024460 012737 024100 001110 MOV #1$,$LPERR ;RESET LOOP ON ERROR POINTER TO 1$ 
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1324 
1385 FREAK EER ARERR REE EEE ERE REE EEREERREREREREERE ERE 
(3) TSTEST 25 READ AND WRITE WHILE IN RELOCATE MODE 
** 
(4) :* THE FOLLOWING TEST TURNS ON MEMORY MANAGEMENT AND THEN 
(4) ie READS AND WRITES LOCATIONS BETWEEN PHYSICAL ADDRESSES 
(4) ie 0000-067600. ONE LOCATION IN EVERY BLOCK (32. 
(4) ie IS WRITTEN USING PAR4 AND READ USING PARS. THis Is” 
(4) i* I USER AND KE ES. THE USER PAR/PDR'S 
(4) :* ARE SETUP AT THE BEGINNING OF THE TEST AND 
(4) :* MANAGEMENT IS TURNED ON IT IS LEFT ON FOR THE REST OF THE 
(4) t* OF THE PROGRAM. THE ‘MODE’ INPUT TO THE PAR/PDR ADDRESS MUX 
(4) * IS CHECKED BY READING AND WRITING IN USER MODE. REMEMBER 
(4) * ALSO, THAT SINCE MEMORY MANAGEMENT IS LON (IN RELOCATE 
(4) :* MODE) THE PROGRAM ITSELF IS USING ITS VIRTUAL ADDRESSES AND 
(4) :* THE PAR/PDR'S TO EXECUTE. 
** 
(4) :* WHILE TESTING IN KERNEL MODE, USER PAGES 4 & 5 ARE MAPPED 
(4) 7* NON=RES IDENT WITH A he + gl PAR VALUES THAN THE KERNEL 
(4) s* PAR'S TO BE SURE THAT THE KERNEL PAR'S AND PDR'S ARE BEING 
(4) ie USED WHEN IN KERNEL MODE (AND VICE VERSA WHILE TESTING IN 
(4) :* USER MODE). _IF A MEM. MGMT. TRAP OCCURS, THE PROGRAM GOES 
(4) te TO 9$ WHERE THE TRAP IS REPORTED. 
** 
(4) 7* BY SETTING THE LOCATION $MADR1 IN THE E=-TABLE TO A CONSTANT, 
(4) 38 AS DESCRIBED IN THE DOCUMENTATION, THIS TEST WILL CONTINUE 
(4) 37* ACCESSING LOCATIONS THROUGHOUT MEMORY BY INCREASING THE VALUE 
(4) 7* OF PAR4 AND PARS. 
(3) JL ERR ERK EERE ERERERKEKEKEREREEKEEREREREREREEKEK 
2) 024466 000004 TST25: SCOPE 
1354 024470 005037 177776 1$: CLR PSW 2 START IN KERNEL MODE 
1355 024474 012704 000577 MOV #577,R4 TLOAD R4 WITH VALUE FOR PAR 
1356 024500 012705 000600 MOV #600.R5 SLOAD RS WITH VALUE FOR PARS 
1357 024504 010437 172350 MOV R4,KIPARG :LOAD K KERNEL PAR 
1358 024510 010537 172352 MOV R5.KIPARS OAD KERNEL PARS 
1359 024514 012700 177640 MOV #UIPARO,RO SLOAD ADDRESS OF FIRST USER PAR IN RO 
1360 024520 005001 CLR R1 *CLEAR R1 
1361 024522 012702 000007 MOV #7 ,R2 [LOAD LOOP COUNTER WITH A 7 
1362 024526 010120 2$: MOV R1, (RO) + MAP USER PAR'S TO PAGES 0-6 (4K EACH) 
1363 024530 062701 000200 ADD #200,R1 
1364 024534 077204 SOB R2,2 :LOOP UNTIL UIPARO-UIPAR6 ARE LOADED 
1365 024536 012710 177600 MOV #177600,(RO) | :MAP USER PAR7 TO THE I/O PAG 
1366 024542 012700 177600 MOV #UIPDRO.RO [LOAD ADDRESS OF FIRST USER PDR IN RO 
1367 024546 012701 077406 MOV #77406,R1 ‘LOAD PDR DATA INTO R1 
1368 024552 012702 000010 MOV #10,R2 [LOAD LOOP COUNTER WITH AN 8 
1369 024556 010120 3$: MOV R1, (RO)+ [MAP ALL 8 PAGES 128 BLOCKS, UPWARD 
1370 024 077202 SOB R : EXPANDABLE, READ/WRITE 
1371 024562 012737 024642 001110 MOV #5$,$LPERR ‘SET LOOP ON ERROR POINTER TO 5$ 
1372 024570 737 025126 000250 MOV #9$.MMVEC :SET M. M. TRAP VECTOR TO 
1373 024576 012737 177572 MOV #21,SRO STURN ON MEMORY MANAGEMENT (22-817 ADDRESSING) 
1374 024604 105037 177610 10$:  CLRB -UIPDR4 ;MAP USER SPACE NONRESIDENT ILE 
1375 024610 105037 177612 CLRB —dUIPDRS TESTING KERNEL PACE 
1376 024614 010537 177650 MOV R5,UIPARS “MAP USER PAR'S OPPOSITE OF KIPAR'S 
1377 024620 010437 177652 MOV R4-UIPARS 
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024624 013737 177776 001176 4$: MOV PSwW,$TMPO ;SAVE PSW IN CASE OF ERROR 
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ois ae tk 08:00 PAGE 
D AND WRITE WHILE IN 


#100100.RO 

#120000.R1 
RO, (RO) 
(R14) ,R2 
RO,Re 
6$ 


R1,VIRT2 
RO,VIRT1 
PC,FORMPA 
20 


VIRT1,RO 
#100,RO 
#100,R1 
R1,4127700 


alates 
R4,UIPAR4 
R5 ,UIPARS 


#6 ,UIPDR4 
vy Vig 


#77406, KIPDR4 
oe KIPDRS 


AMGMERR , MMVE C 
#1$, $LPERR 
TST26 


(KSP) +, TRAPPC 


E 1-36 
RELOCATE MODE 


3PUT viatuae ADDR. THAT USER PAR4 IN RO 
[PUT VIRTUAL ADDR. THAT ait PARS IN R1 
WRITE TO MTEST Le: Tus 
;READ THE SAME 


DID WE READ WHAT 


“BRANCH IF YES 

SAVE VIRTUAL ADDR. THAT SELECTED PARS 
SAVE VIRTUAL ADDR. THAT SELECTED PAR4 

:GO FORM PHYSICAL ADDRESS BEING a 
READING LOC. USING PARS AND A VIRT 

ZADDR. DID NOT aes. WRITTEN WHEN USING 


AR4 AND VIRT. 


=P. 

FOR TIGHTER SCOPE LOOP 

:REP LACE ERROR CALL WITH 
5$'' = 000765 


TRESTORE VBA IN RO 
CHANGE VIRTUAL ADDRS. TO POINT TO NEXT BLOCK 


WERE BLOCKS FROM 60000-676000 ALL TRIED? 
BRANCH IF NO 
sHAVE WE oS TEST IN USER MODE YET? 


BRANCH IF 


:LOAD USER see 


sLOAD U 


SER PARS 
MAP USER SPACE R/W TO TEST IT 


s:MAP KERNEL SPACE NON-RESIDENT WHILE 
: TESTING USER SPACE 
:MAP KERNEL PAR'S OPPOSITE UIPAR'S 


:GO TO USER MODE 

:GO BACK AND READ/WRITE IN USER MODE 
3GO BACK TO KERNEL MODE BEFORE LEAVING 
HAVE WE CHECKED ALL MEMORY? 

BRANCH IF YES 


Y 
LOAD WITH NEXT VALUE FOR PAR4 
;LOAD WITH PAR FOR PARS 


LOAD KERNAL P. 
ZLOAD 


CONTINUE TEST 


REMAP KERNEL PAGES READ/WRITE 


KERNEL AND USER PAR'S 4 & 5 
BACK TO 12-16K 


sRESTORE ADDR. 
7:60 TO NEXT 


;SAVE PC & PS OF TRAP 


KERNAL PARS 
MAP KERNAL SPACE R/W WHILE TESTING 


OF NORMAL M.M. TRAP ROUTINE 
;RESET LOOP A te POINTER TO 1$ 


SEQ 0050 
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025132 012637 MOV (KSP) +, TRAPPS 
PROGRAM WILL TRAP TO HERE IF TRY 
:T0 USE USER PDR'S WHEN IN KERNEL MODE 


TOR KERNEL WHEN IN USER MODE 
RO,VIRT1 : S EPORT 
:GO FORM THE PHYSICAL ADDRESS BEING USED 
001272 TSAVE SRO & SR2 FOR ERROR REPORT 
001274 SR2,WASSR2 
025162 177572 #160000, SRO CLEAR ERROR BITS IN SRO 
025170 52 “MM WHILE IN RELOCATE MODE - 
:REFERENCED WRONG SET OF PDR'S 
“FOR TIGHTER SCOPE LOOP 
REPLACE ERROR CALL WITH 
‘NOP’ = 00 


025172 013746 : TRAPPS , =(KSP) ‘PUT PC & PS OF TRAP ON STACK 
025176 013746 MOV TRAPPC ,~(KSP) 
025202 000002 RTI RETURN TO TEST 


ce 


s*TEST 26 W-BIT LOGIC TEST, KERNEL PDR'S 


THIS TEST WRITES TO EIGHT (8) DIFFERENT VIRTUAL ADDRESSES 
(VBA'S = 17 776. 37776,57776,77776,117776,137776 137776, & 177776 
& PBA'S CONSTRUCTED = 17776, 37776,57776.77776, 77776 
77776,77776, & 777776 RESPECTIVELY) . 

WHICH SHOULD CAUSE THE 'W-SIT’’ TO SET IN EACH OF THE 
EIGHT (8) KERNEL PAGE DESCRIPTOR REGISTERS. 'S 
ARE CHECKED TO SEE THAT I 

PAGE IT IS MAPPED To? W-BIT 
DOES NOT SET IN ANY OF THE OTHER PDR'S. KERNEL PDR'S 3,4,5,6 
ARE MAPPED . ALSO THE W-BIT 

WRITTEN TO. THE 

W-BIT PORTION OF THE PDR'S IS BEING CHECKED. 


SEEKER EKEKEKEKEEKKEREEKEEEKEEKRKEEKEKEEERKEKKKEEKEEKEKEKEEEEKREKEEKEEKEKEKKEKKK 


T26: 
#340 ,PSwW LOCK OUT ALL POSSIBLE INTERRUPTS 
PC, TOFF ; TURN TAIT OHeR te i FOR THIS TEST 
#4 ,R2 SET LOOP COUNTER 
#KIPAR3,RO LOAD ADDRESS, OF PAR3 INTO RO 
seated *"12-16kK'' PAR_VALUE INTO R1 
+ 


TIL ALL 4 OF THEM LOADED 
#xIPDRO, R5 = LOAD ADDRESS OF FIRST PDR TO BE TESTED IN RS 
#10 :SET LOOP COUNTER TO 8 
TPR, R3 SINITIALIZE VIRTUAL ADDRESS TO BE IN R3 
#3$,SLPERR :SET LOOP ON ERROR POINTER TO 
#KIPDRO,RO [LOAD ADDR. OF FIRST PDR TO BE SETUP IN RO 
#10,R2 iSET LOOP COUNTER TO 8 
#77406,R1 "W-BIT OFF DATA'’ INTO 
Ri. (ROS+ CLEAR ALL WBITS BY Y WAIT GN. TO ALL PDRS 
LOOP UN Att OF THEM SETUP 
Rasy (R3) *D O VIRTUAL ADDR.-SETTING A W-BIT 
(R5) - #WBIT > CAUSE W-BIT TO BE SET? 
‘BRANCH IF 


BN $ YES 
025312 21 W-BIT DID NOT GET SET IN PDR 


* 
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W-BIT LOGIC TEST, KERNEL PDR'S 


;FOR TIGHTER SCOPE LOOP 
;REPLACE ERROR CALL WITH 
;‘BR 3$"' = 000763 


BR 8$ SSKIP CHECKING OTHER PDR'S-ERROR WILL SET W-BITS 
S$: MOV #10,R2 ‘SET LOOP COUNTER TO 8 
MOV #KIPDRO,RO [LOAD ADDR. OF FIRST PDR TO BE CHECKED IN RO 
6$: BIT (RO) ,#WBIT ‘DID W-BIT IN OTHER PDRS REMAIN CLEAR? 
BEQ 7$ “BRANCH IF YES 
cw R9-RO :1F W-81T SET THEN WAS IT PDR UNDER TEST? 
ERROR 22 “y-BIT GOT SET IN MORE THAN ONE PDR 
‘FOR TIGHTER SCOPE LOOP 
:RE PLACE ERROR CALL WITH 
:'BR 3$'' = 000750 
7$: ADD #2,RO ;POINT RO TO NEXT PDR TO BE CHECKED 
SOB R2.6$ SLOOP UNTIL ALL 8 CHECKED FOR CLEAR W-BIT 
MOV R1. (R5) [WRITE TO THE PDR TESTED TO CLEAR W-BIT 
BIT (R5) ,AWBIT :DID WRITING PDR CLEAR THE W-81T? 
BEQ 8% BRANCH IF YES 
ERROR 23 :W-BIT DID NOT CLEAR BY WRITING THE PDR 
‘FOR TIGHTER SCOPE LOOP 
:REPLACE, ERROR_CALL WITH 
8$: ADD #2,R5 [POINT RS TO THE NEXT PDR TO BE TESTED 
ADD #20000,R3 ;CHANGE VIRT. ADDR TO REF. NEXT POR 
SOB R4,3$ [LOOP BACK TO 3$ UNTIL ALL 8 PDR'S TESTED 
MOV #1$,$LPERR ‘RESET LOOP ON ERROR POINTER TO 1$ 
JSR PC, TON : TURN T-BIT BACK ON FOR NEXT TEST 
FREER EKEEEREREKEKEKKEKEEEEKEKEEEKKEKEKEKEKEEKEKEEREKEKKKKE 
tSTEST 27 W-BIT LOGIC TEST, USER PDR'S 
** 
:* THIS TEST WRITES TO EIGHT (8) DIFFERENT VIRTUAL ADDRESS 
:* (VBA'S = 17776, 37776,57776,77776,117776,137776,157776~ 177776 
:* & PBA'S $ CONST RUCTED = 17776,37776, 37776, 77776, 77776, 
te 7776, 77776, & 770776 RESPECTIVELY) 
:* WHICH SHOULD CAUSE THE 'W-BIT’’ TO SET IN EACH OF THE 
j* EIGHT (8) USER PAGE DESCRIPTOR REGISTERS. THE PDR'S 
* ARE CHECKED TO SEE THAT IT'S WBIT DOES SET WHEN THE 
* PAGE IT IS MAPPED TO IS WRITTEN TO AND THAT THE W8IT 
* DOES NOT SET IN ANY OF T HER PDR'S. USER PDR'S 3,4,5,6 
* ARE MAPPED TO 12-16K FOR THIS TEST. ALS W-BIT 
j* SHOULD BE CLEARED WHEN THE PDR IS WRITTEN 10 THE 
* W-BIT PORTION OF THE PDR'S IS BEING CHECKED. 
STARA KEREEEEREEKEEREEEKEREKEEEEKREREREKKEEKEEEREEEKEREEKK 
TST27: SCOPE 
1$: MOV #140000, PSW 7GO TO USER MODE FOR THIS TEST 
JSR PC, TOFF ; TURN T-BIT TRAPPING OFF FOR THIS TEST 
MOV *R2 SET LOOP COUNTER TO 4 
MOV #UIPAR3,RO LOAD ADDRESS | oF “PAS INTO RO 
MOV 600,R1 [LOAD '12=16K'' PAR VALUE INTO R1 
2$: MOV R1, (RO) + ‘MAP PARS 3-6 10 12=1 
SOB R2,2$ [LOOP TIL ALL 4 OF THEM LOADED 
MOV MUIPDRO,RS [LOAD ADDRESS OF FIRST PDR TO BE TESTED IN RS 
MOV #10,R4 ‘SET LOOP COUNTER TO 8 
MOV rae R3 SINITIALIZE VIRTUAL ADDRESS TO BE IN R3 


SEQ 0052 


BS 
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025456 012737 025464 001110 #3$ ,SLPERR SET LOOP ON er POINTER TO 3$ 
0254 012700 177600 3$: MUIPDRO,RO iL F FIRST PDR TO BE SETUP IN RO 
000010 10,R2 eer LOOP COUNTER TO 8 
077406 "W-BIT OFF DATA’ INTO R 
: CLEAR ALL W-BITS BY WRITING. TO ALL PDRS 
;LOOP UNTIL ALL OF THEM SETUP 
MOV :D0 ‘DATO’ TO VIRTUAL ADDR. Bi A W-BIT 
000100 (R5) I ;DID THAT CAUSE WBIT TO BE SET? 
5$ BRANCH IF YES 


:W-BIT DID NOT GET SET IN PDR 
FOR TIGHTER SCOPE LOOP 
:REPLACE, eae’ WITH 


SKIP CHECKING OTHER PDR'S-ERROR WILL SET W-BITS 
SET LOOP COUNTER TO 8 

;LOAD ADDR. OF FIRST PDR TO BE CHECKED IN RO 
DID weil ey OTHER PDRS REMAIN CLEAR? 


H IF YES 
i 1F aa A oF THEN WAS IT PDR UNDER TEST? 


E BRANCH YES 
025542 :W-BIT GOT SET IN MORE THAN ONE PDR 
FOR TIGHTER SCOPE LOOP 
:REPLACE ERROR CALL WITH 
:'BR 3$"* = 000750 


025544 062700 : #2,R0 “POINT RO TO NEXT PDR TO BE CHECKED 
R2.6$ [LOOP UNTIL ALL 8 CHECKED FOR CLEAR W-BIT 
R1.,(R5) [WRITE TO THE PDR TESTED TO CLEAR W-BIT 
rs) /AWBIT [DID WRITING PDR CLEAR THE W-BIT? 
‘BRANCH IF YES 
§ ‘W-BIT DID NOT CLEAR BY WRITING THE PDR 
‘FOR TIGHTER SCOPE LOOP 
;REPLA CE ERROR CALL WITH 
:'BR 3$"* = 000740 
000002 : AD #2,R5 :POINT RS TO THE NEXT POR TO. BE TESTED 
020000 #20000,R3 = CHANGE VIRT REF T POR 
RG [LOOP BA it POR’ S TESTED 
025410 001110 #1$,$LPERR ;RESET LOOP ON ERROR boINTER 1 9.18 
0 035134 PC, TON -TURN T-BIT BACK ON FOR NEXT Test 
025610 177776 PSW [BACK TO KERNEL MODE BEFORE LEAVING 


g CSSSNH SSNS esHceaseReeeesesenagsagegessagogngseneneseggaasoneses 


;STEST 30 TEST ‘W-BIT'’ SPECIAL CASES 


zs a TEST CHECKS TWO SPECIAL CASES OF _THE W-BIT. FIRST CASE IS 
;* T THE BIT SHOULD NOT SET IN PDR 7 WHEN WRITING TO 

;@ STATUS REG SRO (KERNE!. PDR 7 IS a i SECOND CASE IS ~~ 

;* THE W-BIT IS STILL SET IF THE ‘DATO’’ IS ABORTED TO A 

;* TIMEOUT ERROR (KERNEL PDR6 & VIRTUAL ADDR 140000 ARE USED). 
** 

i$ 


~~ 
— 
~— 
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ee Ne Ne Ne Ne ee ee a ee ee ee a a a ee es ee ee ee ee ae a ee ae ae ae ee eae a ae la ae ae ee ee 


( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 


SEERA EEA 


025614 130: SCOPE 


025616 004737 035100 1$: JSR PC, TOFF ;TURN OFF T-BIT TRAPP ING FOR THIS TEST 
025622 1 077406 MOV #77406,R1 ;PUT ‘W-BIT OFF’ VALUE FOR PDR IN R1 
025626 025634 001 10 MOV #2$,$LPERR ‘SET LOOP ON ERROR POINTER TO 2$ 


ade Ae At ay ge ae 





roar pet areriens MMU D 


DAC .P 1 >-MAR-BO 97: 56 
1484 025634 010137 172316 
1485 025640 013700 177572 
1486 025644 010037 177572 
1487 025650 013702 172316 
1488 025654 020102 
1489 025656 1401 
1490 025660 104024 
1491 
1492 
1493 
1494 025662 012737 025662 
1495 025670 010137 172314 

496 025674 012737 025706 
1497 025702 005037 140000 
1498 025706 0127 1100 
1499 025712 013702 172314 
1500 025716 052701 10 
1501 025722 020102 
1502 025724 001401 
1503 025726 104025 
1504 
1505 
1506 
1507 025730 010137 172314 
1508 025734 012737 001400 
1509 025742 012737 2076 
1510 025750 012737 025616 
1511 025756 004737 035134 
1512 
1513 
1514 
1515 
1516 
1517 
1518 
1519 
1520 
1521 
1522 
1523 
1524 
1533 

(3) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(3) 

(2) 025762 000004 
1534 
1535 025764 012700 
1536 025770 010037 172346 
1537 025774 010037 172350 
1538 026000 010037 177646 


a 
MACY11 mo O52? et it torett 08:00 PAGE 1-40 


001110 
000004 


172354 


"W-BIT'’ SPECIAL CASES 


2s: MOV R1,KIPDR7 ;LOAD KERNEL PDR 7 TO CLEAR W-B11 


MOV SRO,RO ‘READ PRESENT CONTENTS OF STATUS REG. 0 

MOV RO, SRO ‘WRITE PRESENT CONTENTS OF SRO BACK TO ITSELF 

MOV KIPDR7,R2 ‘READ CONTENTS OF KIPDR7 INTO R2 

CMP R1,R2 [WAS W-BIT LEFT CLEARED? 

BEQ 3$ ;BRANCH IF YES 

ERROR 24 ‘W-BIT IN KIPDR7 SET WHEN SRO WAS WRITTEN TO 
‘FOR TIGHTER SCOPE LOOP 
;REPL ACE ERROR CALL WITH 
‘BR 2$"' = 000765 

3$: MOV #38. SLPERR ‘SET LOOP ON ERROR POINTER TO 3$ 

MOV KIPDR6 ‘LOAD KERNEL PDR6 WITH 77406 TO CLEAR W-BIT 

MOV fa ERRVEC ‘SET UP LOC. 4 TO 4$ FOR ODD ADDR. ABORT 

CLR a#140000 [CAUSE TIMEOUT ABORT THRU LOC. 4 

4$: MOV #KERSTK ,KSP SRESTORE THE STACK POINTER 

MOV KIPDR6,R2 ‘READ KIPDR6 INTO R2 

BIS #100,Ri *R1-77506 

CMP R1,R2 [WAS W-BIT SET? 

BEQ 5$ ‘BRANCH IF YES 

ERROR 25 tW-BIT WAS NOT SET DURING A TIMEOUT ABORT 
‘FOR TIGHTER SCOPE LOOP 


;REPLACE ERROR CALL WITH 
:'BR_3$"' = 000757 


5$: MOV 1,KIPDR6 RESTORE KIPDR6 TO 77406 
MOV #1400, KIPAR6 SRESTORE KIPAR6 TO 1400 
MOV ATIMERR, ERRVEC RESTORE NORMAL CPU TRAP R a i TO LOC.4 
MOV #1$,$LPERR TORN LOOP ON ERROR POINTER TO 1$ 
JSR PC, TON ; TURN T-BIT TRAPPING BACK ON 


SKA EREREKREEEKEKERAEEKREREEEKEKEAEEKEKEEKKEEKEEREKEKERKEKK 


THE NEXT THREE (3) TESTS CAUSE MEMORY MANAGEMENT ERRORS 
g CHECK THE ae He OF STATUS REGISTER 0 TO RECORD KT 


CT E 
THE BITS OF SR2 ARE CHECKED AND BITS <is: iS, <6:5>, AND <3:0> 
ARE CHECKED IN SRO. SO THE SRO AND SR2 LOGIC AND THE 

KT ERROR LOGIC ARE CHECKED. 


SAAR 


J EAE AKER EEREKEREKERRERAEEEEEREKEEREEERRAEREEEEKEEKEEREEE 


:#TEST 31 NON-RESIDENT ABORT TEST (ACF=084) 
te THIS TEST CHECKS THE ACCESS CONTROL FIELD (ACF) COMPARATOR 
ie LOGIC BY CAUSING NON-RESIDENT ABORTS IN BOTH KERNEL AND 
3s USER MODES. PDR 4 IS LOADED WITH ACF'S = 0&4 AND 
ie THEN PHYSICAL ADDR. 60000 IS ACCESSED TO CAUSE THE ABORT. 
** 
PTITITITITITIIT ITT TTT TT TTLILI LLL TELL EL ELL LLL LLL ETT 
1131: SCOPE 
1$: Mov #600, RO ;LOAD DATA FOR PAR'S INTO RO 

MOV _— RO, KIPAR3 :MAP KERNEL PAR'S 384 TO 12-16K 


MOV RO, KIPAR4 
MOV RO,UIPAR3 ;MA” USER PAR'S 384 TO 12-16K 


SEQ 0054 


D5 
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CJKDAC.P11 —- 12=MAR=80 07:56 T31 NON-RESIDENT ABORT TEST (ACF=084) SEQ 0055 
1539 026004 010037 177650 MOV 
1540 026010 012737 077406 172306 MOV Fo sthe nk RTPDR3 MAP KERNEL PDR 3. 128 BLKS, READ-WRITE 
1541 026016 012737 077406 177606 MOV #77406, *UIPDR3 MAP USER PDR 3 128 BLKS, READ-WRI TE 
1542 026024 012700 060000 MOV #60000 RO. LOAD VIRTUAL ADDR. TO REFERENCE PDR3 INTO RO 
1543 026030 012701 1 MOV #100000,R “LOAD VIRTUAL ADDR. TO REFERENCE PDR4 INTO R1 
1544 026034 012703 100071 MOV #100071 RS [LOAD R3 WITH WHAT SRO SHOULD READ - N.R., KERNEL, PG.4 
1545 026040 012702 077400 MOV #77400,R2 ‘LOAD ACF=0 (NON-RESIDENT) PDR VALUE IN R2 
1546 026044 012737 026106 000250 2$: MOV #5$ ,MMVEC [POINT MEM. MGMT. TRAP VECTOR TO 5$ BELOW 
1547 026052 010237 172310 MOV R2,KIPDR4G ‘LOAD ACF TEST VALUE INTO KIPDR4 
1548 026056 010237 177610 MOV R2,UIPDR4 ‘LOAD ACF TEST VALUE INTO UIPDR4 
1549 02 012737 026070 001110 MOV #3$, SLPERR SET LOOP ON ERROR POINTER TO 3$ 
1550 026070 005010 3$: CLR (ROS :CLEAR PHYS. LOC. 60000 USING PDR3 
1551 026072 013737 177776 001176 MOV PSW,$TMPO SSAVE PSW IN CASE OF ERROR 
1552 026100 0052171 43: INC (R15 :TRY TO REF. IT USING PDR4 = SHOULD TRAP TO 5$ 
1553 026102 104026 ERROR 26 :MEM. MGMT. ABORT DID NOT OCCUR 
1554 :FOR TIGHTER SCOPE LOOP 
1555 EPLACE ERROR CALL WITH 
1556 FER 3$"" = 000772 
1557 026104 000425 BR 8$ “BRANCH AROUND STATUS REG. CHECKS IF NO ABORT 
1558 026106 062706 000004 5$: ADD #4,SP SRESTORE STACK POINTER 
1559 026112 605710 TST (RO) :DID INSTRUCT ION GET ABORTED & NOT EXECUTE 
1560 026114 001401 BEQ 6$ ‘BRANCH IF YES 
1561 026116 104027 ERROR 27 2 INSTRUCT ION WAS NOT ABORTED, LOC. GOT CHANGED 
1562 FOR TIGHTER SCOPE LOOP 
1563 ;REP LACE ERROR CALL WITH 
1564 :'BR 3$'' = 000764 
1565 026120 013737 177572 001272 6$: MOV SRO, WASSRO TREAD STATUS REGISTER 0 
1566 026126 013737 177576 001274 MOV SR2.WASSR2 [READ STATUS REGISTER 2 
1567 026134 020337 001272 CMP R3,WASSRO “DID SRO REPORT NON-RESIDENT ERROR CORRECTLY? 
1568 026140 001401 BEQ 7$ SBRANCH IF YES 
1569 026142 104030 ERROR 30 ;SRO DID NOT REPORT NON-RES. ERROR CORRECTLY 
1570 ‘FOR TIGHTER SCOPE LOOP 
1571 REPLACE, ERROR CALL WITH 
1572 :'BR 3$"° = 000752 
1573 026144 012704 026100 7$: MOV #4$,R4 SLOAD R4 WITH WHAT SR2 SHOULD READ 
1574 026150 020437 001274 CMP R4,WASSR2 :DID sR2 LOCKUP RIGHT VIRTUAL ADDR. (=4$)? 
1575 026154 001401 BEQ 3 [BRANCH IF YES 
1576 026156 104031 ERROR 31 *$R2 DID NOT LOCK VIRTUAL ADDR. OF NON-RES. ERROR 
1577 [FOR TIGHTER SCOPE LOOP 
1578 REPLACE ERROR CALL WITH 
1579 ‘BR 3$'' = 0007 
1580 026160 042737 160000 177572 8%: BIC #160000, SRO CLEAR THE ERROR BITS IN SRO 
1581 026166 032737 140000 001176 BIT #140000. $TMPO S ACF =064 BEEN TESTED IN USER YET 
1582 026174 001006 BNE 9$ BRANCH YES 
1583 026176 012703 100151 MOV #100151,R3 ;LOAD RS! uty WHAT SRO SHOULD READ - N.R.. USER. PG.4 
1584 026202 012737 140000 177776 MOV #140000.PSw :GO TO USER MODE 
1585 026210 000715 BR 2$ ;REPEAT TEST IN USER MODE 
1586 026212 022702 077404 9$: CMP #776404 ,R2 HAS ACF=4 BEEN TESTED YET? 
1587 026216 001407 BEQ 10$ ‘BRANCH IF YES 
1588 026220 012702 077404 MOV #77404 R2 [THEN LOAD ACF=4 (NON-RES) PDR VALUE IN R2 
1589 026224 012703 100011 MOV 00011 ,R3 SLOAD R3 WITH WHAT SRO SHOULD READ-N.R..KERNEL.PG. 4 
1590 026230 005037 177776 CLR Sg :GO BACK TO KERNEL MODE 
1591 026234 000703 BR 2$ 7GO BACK Y TEST ACF=4 IN SAME MODE 
1592 026236 005037 177776 10$: CLR PSW 360 BACK TO KERNEL MODE BEFORE LEAVING 
1593 026242 012737 025764 001110 MOV #1$,$LPERR RESET LOOP ON ERROR POINTER TO 1$ 
1594 026250 012737 002150 000250 MOV WMGMERR.MMVEC RESTORE ADDRESS OF NORMAL MEMORY 
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2 
NON-RESIDENT ABORT TEST (ACF=084) 


MANAGEMENT ERROR ROUTINE TO MMVEC 


FERRER EER EERE AERA 


:#TEST 32 


T32: 


te 
= 
* 
i 
* 
rs 
$: 


in bao ea 


001110 
001176 


4$: 


5$: 


7$: 


177572 8S: 
001176 


LOGIC BY CAUSING 
SER ES. 


READ-ONLY ABORT TEST (ACF=2) 
THIS TEST CHECKS THE ACCESS CONTROL FIELD (ACF) — 


ante ABORTS IN BOTH 
PDR 4 IS LOAD WITH 


ACF=2 AND 


U THEN 
PHYSICAL ADDR. 60000 IS WRITTEN TO cause THE ABORT. 


SCOPE 


#60000,RO 
#100000,R1 
#20011, &3 
#77402.R2 
#5$ .MMVEC 
R2,KIPDR4 
R2,UIPDR4 
#3$,SLPERR 
(RO) 


PSW,$TMPO 
(R1) 


rX3 
#4,SP 
(RO) 
6$ 

27 


SRO ,WASSRO 
SRe ,WASSRe 
R3.WASSRO 


30 


#4$ ,R4 
R4 ,WASSR2 
8$ 


31 


#160000 , SRO 
#140000, $TMPO 


9$ 
#20151,R3 


SERRE ERE ERE REE EREEKEEKEKEEKKKEK 


ee te ta teat eae 
sARE SETUP FROM LAST TEST 
+ LOAD VIRTUAL ADDR. TO REFERENCE PDR3 INTO RO 

TUAL ADDR. TO REFERENCE PDR4 INTO R1 
3 WHAT SRO SHOULD READ - R/O, KERNEL, PG.4 
;LOAD_ACF=2 (READ-ONLY) PDR VALUE IN R2 
:POINT MEM, MGMT. TRAP VECTOR TO 5$ BELOW 
[LOAD ACF=2 INTO KIPDR4 
sLOAD ACF=2 INTO UIPDR4 
SET LOOP ON ERROR POINTER TO 3$ 
[CLEAR PHYS. LOC. 60000 USING PDR3 
SAVE PSW IN CASE OF ERROR 
TRY TO WRITE USING PDR4 = SHOULD TRAP TO 5$ 
;MEM. MGMT. ABORT DID NOT OCCUR 
[FOR TIGHTER SCOPE LOOP 
:REPLACE ERROR CALL WITH 

= 000772 


:'BR 3$"' 
[BRANCH AROUND STATUS REG. CHECKS IF NO ABORT 
: RESTORE STACK POINTER 

DID INSTRUCTION GET ABORTED & NOT EXECUTE 


‘BRANCH IF YES 

a preg Tre 1s WAS NOT ABORTED, LOC. GOT CHANGED 
FOR TIGHTER SCOPE LOOP 

;REPLACE ERROR CALL WITH 
:'BR 3$°' = 000764 


ZREAD STATUS REG. 0 
sREAD STATUS REG. 2 
DID np cid READ-ONLY ERROR CORRECTLY? 


BRANCH 
SRO DID NOT REPORT R/O ERROR CORRECTLY 
FOR TIGHTER SCOPE LOOP 
:REPLACE ERROR CALL WITH 

3$"* = 000752 


[LOAD R4 WITH WHAT SR2 SHOULD READ 
:DID SR2 mf RIGHT VIRTUAL ADDR. (=4$)? 


BRANCH IF Y 
:SR2 DID NOT LOCKUP VIRTUAL ADDR. OF R/O ERROR 
FOR TIGHTER SCOPE LOOP 

;REPLACE ERROR CALL WITH 

:' BR 000744 


ai ; e 
:CLEAR T ERROR BITS IN SRO 

5 ACEO BEEN TESTED IN USER MUDE? 
‘BRANCH I 


IF YES 
;LOAD R3 WITH WHAT SRO SHOULD READ-R/0, USER, PG.4 


SEQ 0056| 


Pe 
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CJKDAC.P11 12=MAR-80 07:56 132 READ-ONLY ABORT TEST (ACF=2) SEQ 0057 
1650 026436 012737 140000 177776 MOV #140000 ,PSwW ;GO TO USER MODE 
1651 026444 000715 BR 2s »REPEAT FEST IN USER MODE 
1652 026446 005037 177776 9$: CLR PSw :60 BACK TO KERNEL MODE BEFORE LEAVING 
1653 026452 012737 026260 001110 MOV #1$,$LPERR ;RESET LOOP ON x POINTER TO 1$ 
1654 026460 012737 002150 000250 MOV AMGMERR,MMVEC RESTORE ADDRESS OF NORMAL MEMORY 
1699 [MANAGEMENT ERROR OROUT INE TO MMVEC. 
1657 
1658 
1659 
1660 
1661 
1662 
1663 
1664 
1665 
1666 
1667 SD ARR EREREEREEKEE REE EERE REE ERREERREREEKEKEEE 
1668 i* 
1669 ie THE NEXT TWO A TESTS WILL 8 CHECKING THE PAGE LENGTH 
1670 3* COPATORS WO SOME MORE OF THE KT ERROR DETECTION 
1671 :* AND STATUS LOGIC. THE PAGE LENGTH FIELD (PLF) IN KERNEL 
1672 :* PDR 4 IS VARIED AND FOR EVERY PLF, THREE (3) VIRTUAL 
1673 i* ADDRESSES ARE READ. WHILE USING BOTH UPWARD & DOWNWARD PAGE 
1674 :* EXPANSION, ONE OF THOSE THREE VIRTUAL poone $565 WILL CAUSE A 
1er? :* "PAGE LENGTH ABORT'' WHILE THE OTHER TWO WON'T 
** 
1677 STATUS REGISTER 0 & 2 ARE CHECKED WHEN THE PAGE LENGTH 
1678 i* ABORT DOES OCCUR TO SEE THAT THE ABORT IS REPORTED AND THAT 
1679 :* THE VIRTUAL ADDRESS OF THE INSTRUCTION THAT CAUSED THE ABORT 
‘ony 7” IS LOCKED UP. 
1682 + » AAR RR ORERERARNOANNONNNENEREERERnnARNNNOSAnANeUNNneNEEn 
1683 
1684 
1696 
1697 FFARR AREER EEERERREREEAEERERERERREEERREREERERRREEEREEEE 
(3) Z*TEST 33 PAGE LENGTH FAULTS-UPWARD EXPANSION 
** 
(4) se THIS TEST VARIES THE PAGE LENGTH FIELD (PLF) IN KERNEL PDR 
(4) i* FROM 1 TO 177 AND FOR EACH PLF, per VIRTUAL ADDRESSES CVBA’S) 
(4) i* ARE ACCESSED. WHEN VBA <12:6> IS LESS THAN OR EQUAL TO PDR <14:8> 
(4) :* NO ABORT SHOULD OCCUR. WHEN vBA <12:6> IS GREATER THAN PDR <14:8>, 
(4) i* A PAGE LENGTH ABORT SHOULD OCCUR AND BE REPORTED BY SRO & SR2. 
(4) i* THE PAGE peusio DIRECTION IN THIS TEST IS UPWARD, (THE ED BIT 
ra ie (BIT 3) OF PDR 4 = 0). 
** 
(3) a er ete eee Na 
(2) 0O 000004 TST33: SCOPE 
1698 026470 012737 077406 172306 1$: MOV #77406,KIPDR3  ;MAKE SURE PDR3 IS DESCRIBED AS R/W 
1699 026476 012737 077406 172312 MOV #77406, KIPDRS sMAKE SURE 4 Is DESCRIBED AS R/W 
1 026504 012700 026764 MOV #DAL TBI, RO DAL TABLE FOR VIRTUAL ADDR'S. TO SELECT PDR4. 
1701 026510 012704 027002 MOV #PDRTB1,R4 :PDR TABLE FOR PDR4 (COINCIDES WITH DAL TABLE). 
1702 026514 012701 MOV #6,R1 ;SET UP LOOP COUNTER. 
1703 026520 012737 026676 000250 MOV #9$ .MMVEC ‘SETUP M.M. TRAP VECTOR FOR UNEXPECTED ABORTS 
1704 026526 012737 026540 001110 MOV #2$,SLPERR SET LOOP ON ERROR POINTER TO 2$ 


5 
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026534 012706 001100 MOV AMKERSTK ,KSP sMAKE SURE STACK POINTER IS ALL SET UP 


-TEST NON-ABORT CASES (VBA < OR = 
026540 012437 172310 2$: MOV (R4)+, KIPDRG SLOAD. KIPDR4 WITH PAGE LENGTH VALUE 
026544 005730 TST a(RO)+ {ACCESS VIRTUAL, ADDR. (VBA < OR = PLF) 


; HOULD OCCUR! ! 
026546 SOB R1,2$ ;DONE?...NO= TEST NEXT COMBINATION OF DAL & PDR. 


-TEST ABORT CASES (VBA > PLF) 
026550 000005 S$: MOV #5,R1 :SET UP LOOP COUNTER. 
2700 027020 #DALTB2,RO ‘DAL TABLE 
027034 #PDRTB2.R4 ‘PDR TABLE 
026600 #4$,$LPERR ‘SET LOOP ON ERROR POINTER TO 4$ 
026612 #6$ .MAVEC ‘SETUP M.M. TRAP VECTOR FOR EXPECTED ABORT 


172310 : MOV —_- ;LOAD KIPDR4 WITH PAGE LENGHT VALUE 
: + 
3 


~ 
S33 
NOU 


ACCESS VIRTUAL ADDR. (VBA > PLF - ABORT TO 6$) 
43 XPECTED PAGE LENGTH ABORT DID NOT OCCUR 

;FOR TIGHTER SCOPE LOOP 

:REPLACE ERROR CALL WITH 

;‘BR 7, an 000776 


8$ ;BRANCH AROUND ABORT CHECKS 
#KERSTK ,KSP sRESTORE STACK POINTER moat ABORT 


NUVIIISISIAAISS 
NININININONINID 3 2S SS SS 


NN NNN NN 
N 
oo 


3 


REG. 2 
3 CTED SRO CONTENTS IN R2 
DID ny REPORT PG. LENGTH ABORT, PAGE 4, KERNEL? 


BRANCH IF YES 

3SRO DID NOT REPORT PG. LENGTH ABORT CORRECTLY 
FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

;"BR 5$"" = 757 


#5$,R3 [PUT EXPECTED SR2 CONTENTS IN R3 
R3-WASSR2 [DID SR2 LOCKUP VIRT. ADDR. OF ABORTED INSTRUCTION? 


BRANCH IF YES 

35 sane DID NOT LOCKUP VIRT. ADDR. OF ABORT CORRECTLY 
FOR TIGHTER SCOPE LOOP 
ay ae ERROR GALL WITH 


160000 : #160000, SRO SCLEAR ERROR BITS IN SRO 

R1,4$ ;DONE?..NO ~ GET NEXT DAL & PDR PAIR 
026744 
001266 


10 YES. 
(KSP) +, TRAPPC SAVE” PC & PS OF TRAP 
(KSP) +, TRAPPS 

0 : SAVE CONTENTS OF SRO FOR ERROR 


WAN ANNNNNNNNNNN 
RERRRR AAG ABA w 
ARWNBOSRMIRURWNIS 


YYNNNN 
“8 5RNE 


Twn 


ITS_IN SRO 
:G0 LENGTH ABORT BEFORE IT WAS EXPECTED 
FOR TIGHTER SCOPE LOOP 
PLACE ERROR CALL WITH 
NOP" 4 


026732 013746 TRAPPS , = (KSP) “PUT PC 7 PS OF TRAP ON STACK 
026736 013746 001266 MO TRAPPC , =(KSP) 
026742 000002 RETURN FROM UNEXPECTED ABORT 


026744 012737 t #1$,$LPERR RESET LOOP ON ERROR POINTER TO 1$ 


BRARAA AT 
OONOW 


1 
; 
; 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


g 
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026752 012737 002150 000250 MOV AMGMERR ,MMVEC ;RESTORE NORMAL M.M. TRAP HANDLER 
sADDRESS TO M.M. TRAP VECTOR 
026760 000137 027050 JMP TST34 


;DAL_ TABLE FOR UPWARD EXPANSION (NON-ABORT CASES) 
DALTB1: Lh sg 


;PDR TABLE FOR KPDR4 (NON-ABORT CASES) 
PDRTB1: 000006 
052006 


077406 


;DAL_TABLE (ABORT CASES) 
DALTB2: 100100 
110100 


NNN 
SELEARATSS 


117700 


PDR TABLE (ABORT CASES) 
PDRTB2: 000006 
0304 


333 


=SSSRR 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1790 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


0000 
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STEST 34 PAGE LENGTH FAULTS~DOWNWARD EXPANSION 


THIS TEST VARIES THE — ne FIELD (PLF) IN KERNEL PD 
FROM 176 TO 0 AND FOR EAC F, THREE VIR 

ARE ones tat 

NO PAGE ABORT 

A PAGE LENGTH ABORT 


SHOULD OCCUR AND BE RE 2. 
THE PAGE EXPANSION DIRECTION IN THIS TEST IS DOWNWARD, (THE ED BIT 
(BIT 3) OF PDR4=1). 


SRR EE 


134: 

027332 V #DALTB3,RO :DAL TABLE FOR VIRTUAL ADDR'S. TO SELECT PDR4. 
027350 #PDRTBS. RG [PDR TABLE FOR PDR4 (COINCIDES WiTH DAL TABLE). 
000006 ‘SET UP LOOP COUNTER. 

027244 000250 798" eHVEC ‘SETUP M.M. TRAP VECTOR FOR UNEXPECTED ABORTS 


027050 


wur: oeeeeeeee: 


me Be Be Be Be Be Be Be Be Be 





CJKDACO A ie MMU DIAG 


CJKDAC .P 12-MAR-80 07: 56 
1816 027074 012737 027106 
1817 027102 012706 001100 
1818 
1819 
1820 027106 012437 172310 
1821 027112 005730 
1822 
1823 027114 077104 
1824 
1825 
1826 027116 012701 005 
1827 027122 012700 027366 
1828 027126 2704 027402 
1829 027132 012737 027146 
en 027140 012737 027160 
1832 027146 012437 172310 
1833 027152 005730 
1834 027154 104033 
1835 
1836 
1837 
1838 027156 24 
1839 027160 012706 001100 
1840 027164 015737 177572 
1841 027172 013737 177576 
1842 0272 012702 040011 
1843 027204 020237 001272 
1844 027210 001401 
1845 027212 104034 
1846 
1847 
1848 
1849 027214 012703 027152 
1850 027220 020337 001274 
1851 027224 001401 
1852 027226 104035 
1853 
1854 
1855 
1856 027230 042737 160000 
1857 027236 977135 
1858 027240 137 027312 
1859 027244 012637 1266 
1860 027250 012637 001270 
1861 027254 013737 177572 
1862 027262 013737 177576 
1863 027270 042737 
1864 027276 104032 
1865 
1866 
1867 
1868 027300 013746 001270 
1869 027304 013746 001266 
1870 027310 2 


MACY11 30A(1052) 
734 


001110 


001110 
000250 


001272 
001274 


177572 


I 5 
12-MAR=80 08:00 PAGE 1-46 
PAGE LENGTH FAULTS=DOWNWARD EXPANSION 


MOV #2$,$LPERR :SET LOOP ON ERROR POINTER TO 2$ 
MOV #KERSTK,KSP sMAKE SURE STACK POINTER IS ALL SET UP 
-TEST NON-ABORT CASES (VBA > OR = 
2$: MOV (RG) +, KIPDR4 SLOAD. KIPDR4 WITH PAGE LENGTH VALUE 
TST a(RO)+ TACCESS VIRTUAL ADDR. (VBA > OR = PLF) 
=NO ABORT SHOULD OCCUR!!! 
SOB R1,2$ SDONE?...NO= TEST NEXT COMBINATION OF DAL & PDR. 
-TEST ABORT CASES (VBA < PLF) 
S$: MOV #5,R1 :SET UP LOOP COUNTER. 
MOV #DALTB4 RO ;DAL TABLE 
MOV APDRTBG RG “PDR TABLE 
MOV #4$,$LPERR *SET LOOP ON ERROR POINTER TO 4$ 
MOV #6$..MMVEC [SETUP M.M. TRAP VECTOR FOR EXPECTED ABORT 
4$: MOV (R4)+,KIPDR4 | ;LOAD KIPDR4 WITH PAGE LENGHT VALUE 
5$: TST a(RO) + TACCESS VIRTUAL ADDR. (VBA < PLF - ABORT TO 6$) 
ERROR EXPECTED PAGE LENGTH ABORT DID NOT OCCUR 
“FOR TIGHTER SCOPE LOOP 
;REPL ACE ERROR CALL WITH 
‘BR 5$'' = 000776 
BR 8$ SBRANCH AROUND ABORT CHECKS 
6$: MOV #KERSTK,KSP SRESTORE STACK POINTER FOLLOWING ABORT 
MOV SRO, WASSRO [READ M.M. STATUS REG. 0 
MOV SR2 WASSR2 ‘READ M.M. STATUS REG. 2 
MOV #40011 PUT EXPECTED SRO CONTENTS IN R2 
CMP Re. wasénd D SRO REPORT PG. LENGTH ABORT, PAGE 4, KERNEL? 
ERROR ¢ “SRO DID NOT REPORT PG. LENGTH ABORT CORRECTLY 
‘FOR TIGHTER SCOPE LOOP 
; REPLACE ERROR CALL WITH 
"BR 5$"° = 000757 
7$: MOV #5$,R3 [PUT EXPECTED SR2 CONTENTS IN R3 
CMP R3,WASSR2 [DID sRe LOCKUP VIRT. ADDR. OF ABORTED INSTRUCTION? 
BEQ 8$ ‘BRANCH IF YES 
ERROR 35 :SR2 DID NOT LOCKUP VIRT. ADDR. OF ABORT CORRECTLY 
“FOR TIGHTER SCOPE LOOP 
:RE PLACE ERROR CALL WITH 
"BR 5$'' = 000751 
8$: BIC #160000, SRO SCLEAR ERROR BITS IN SRO 
$08 R1,4$ :DONE?. .NO = GET NEXT DAL & PDR PAIR 
9$: MOV (KSP)+,TRAPPC SAVE PC & PS OF TRAP 
MOV (KSP) +. TRAPPS 
MOV SRO, WASSRO :SAVE CONTENTS OF SRO FOR ERROR 
MOV SR2.WASSR2 [SAVE CONTENTS OF SR2 FOR ERROR 
BIC #160000, SRO [CLEAR ERROR BITS IN SRO 
ERROR 32 GOT ENGTH ABORT BEFORE IT WAS EXPECTED 
[FOR TIGHTER SCOPE LOOP 
;REPLACE, ERROR CALL WITH 
MOV TRAPPS , = (KSP) ‘BUT PC & PS OF TRAP ON STACK 
MOV TRAPPC ; =(KSP) 
RTI ;RETURN FROM UNEXPECTED ABORT 


SEQ 0060 


CJKDACO KTF11=AA MMU DIAG 
CJKDAC.P11 12=MAR-80 07:56 


1872 
1873 
1874 
1875 
1876 
1877 
1878 


BEESSRERESS 


1890 


1905 


027312 012737 027052 001110 
027320 012737 002150 000250 


027326 000137 027416 


027332 117700 
027334 111600 
027336 115400 
027340 115200 
027342 104000 
027344 113100 
027346 100000 


027414 000416 


027416 000004 


J 5 
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PAGE LENGTH FAULTS=DOWNWARD EXPANSION SEQ 0061 


10$: MOV #1$,S$LPERR RESET LOOP ON ERROR POINTER TO 1$ 
MOV AMGMERR ,.MMVEC ;RESTORE NORMAL M.M. TRAP HANDLER 
ZADDRESS TO M.M. TRAP VECTOR 
JMP TST35 


;DAL_TABLE_FOR DOWNWARD EXPANSION (NON-ABORT CASES) 
DALTB3: 117700 


PDR TABLE (NON-ABORT CASES) 
PDRTB3: eceie 


;DAL_TABLE_(ABORT CASES) 
DAL TB4: 1) 00 


100000 


PDR TABLE (ABORT CASES) 
PDRTB4: 77416 


FERRER ERE AREER REE EEE 


SRTEST 35 SR2 BIT TEST 


*«* 
* THIS TEST CHECKS THE BITS IN MEMORY MANAGEMENT REGISTER 2 BY 
Zs CAUSING ‘READ-ONLY ABORTS'’ AT VIRTUAL ADDRESSES BETWEEN 100000 

i TO 110000 (PHYSICAL ADDRESSES 060000-070000). _KIPDR4 IS USED TO EXECUTE 
ie THE FOLLOWING FOUR WORDS OF CODE WHICH ARE MOVED THRU MEMORY: 

i 010727 MOV PC,(PC)+ ;THIS INSTRUCTION SHOULD CAUSE A R/O ABORT 

te 000000 z1TS VIRTUAL ADDR. SHOULD BE LOCKED UP IN SR2 

i 000137 JMP a#3$  :THIS INSTRUCTION IS ALSO MOVED THRU MEMORY 

* (ADDR. OF 3$) :IN CASE A R/O ABORT DOES NOT OCCUR, 

;* 7 IN WHICH CASE SR2 WILL NOT CONTAIN CORRECT ADDR. 
** 
S 


MARA AAAAAAASERASASALAASLALESSEELASES EEL E ESSERE SERS ESE RS EEE SE ES 


135: SCOPE 


° 
oe 
e 
. 
. 
’ 
a 
* 
e 
’ 
4 
; 
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CJKDAC.P11 


027420 
perese 


027610 
027612 


0 
027650 


012737 


101743 


012737 
012737 
012737 


ooooco 
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010727 
000137 
027514 
001100 
177576 
001274 


160000 


100000 
060000 
110000 


027420 


MACY11 30A(1052) 
T35 


SS 


001274 


177572 


5 
onder? The 08:00 aCe 1-48 


IT TEST 
1$: MOV #600, KIPAR3 :BE SURE PAR3 IS MAPPED TO 12-16k 
MOV 600 KIPAR4 SBE SURE PARG IS MAPPED TO 12=16k 
MOV #77406, KIPDR3  :MAP PAGE 3 128 BLOC KS, R/W 
MOV #77402,KIPDR4 MAP PAGE 4 128 BLOCKS. READ-ONLY 
MOV #60002 RO [LOAD RO WITH CIRTUAL ADDR. WHICH USES PDR3 
MOV #100008, R1 SLOAD R1 WITH VIRTUAL ADDR. WHICH USES PDR4 
MOV #3$,,MMVEC SSET M.M. TRAP VECTOR TO 3$ 
MOV #2$.$LPERR :SET LOOP ON ERROR POINTER TO 2$ 
2$: MOV #010727, (RO)+ OAD ‘MOV PC. (PC) +" INSTRUCTION AT ADDR. 
CLR (RO) + REACHED THRU PDR/PAR 4. 
MOV #000137, (RO)+ LOAD "MP as" INSTRUCTION AT VIRT. ADDR. 
MOV =: #3$, (ROS IN CASE R/O VIOL. DOES NOT T J 
MOV R1,P Py [TRANSFER PROGRAM EXECUTION TO ‘PAGE 4 INSTRUCTIONS 
3$: MOV #KERSTK,KSP ;RESTORE STACK POINTER 
MOV SR2,WASSR2 :READ CONTENTS OF STATUS REG 2 / 
CMP R1,WASSR2 [WAS ADDR. OF ‘RELOCATED - R/O ABORT’’ LOCKED UP? 
BEQ 4$ “BRANCH IF YES 
ERROR 36 'SR2 DID NOT LOCK UP VIRTUAL ADDR. OF R/O VIOL. 
ZFOR TIGHTER SCOPE LOOP 
ZREPLACE ERROR CALL WITH 
2$"' = 0007 
4$: BIC #160000,SRO CLEAR THE ERROR BITS IN SRO 
ADD R1,R1 “SETUP TO FORM NEXT VIRTUAL ADDRESS 
MOV RO ;SETUP RO TO FORM NEXT VIRT. ADDR. TO LOAD 
BIS #100000,R1 “FORM VIRTUAL ADDR. THAT SHOULD oot LOCKED UP NEXT 
BIS #60000,RO ‘POINT RO TO NEXT VIRT. ADDR. O LOAD 
CMP R1,4110000 [HAVE ALL VBA'S 100000-110000 BEEN TESTED? 
BLOS ‘BRANCH iF NO 
5$: MOV #1$,$LPERR ;RESET LOOP ON ERROR POINTER TO 1$ 
MOV #77406,KIPDR4 :RESTORE PDR4 TO R/W ACCESS 
MOV #MGMERR,MMVEC :RESTORE ADDRESS OF NORMAL M.M. 
: TRAP HANDLER TO M.M. VECTOR 
2 £ —MASRRASAA£ZALALAA£LALELLLELLAES£LESE SES SS ECCS EER CR SEES SCC C SSCS So 
T*TEST 36 MORE CHECKS OF SRO & SR2 
** 
* THIS TEST PERFORMS SOME ADDITIONAL CHECKS OF THE SRO & SR2 LOGIC. 
* FIRST IT CHECKS THAT SR2 ‘'TRACKS'' ALONG ACTING AS A VIRTUAL ADDRESS 
* PROGRAM COUNTER. ALSO SRO & SR2 ARE LOCKED UP BY A PAGE LENGTH 
* ABORT, THEN WITHOUT CLEARING SRO'S ERROR BITS, A R/O ABORT IS CAUSED. 
* SRO & SR BE ED BY THE SECOND ABORT AND THE 
* INFORMATION ABOUT THE PAGE LENGTH ABORT SOULD STILL BE LOCKED UP. 
* IN ADDITION A ‘RESET Is EXECUTED TO VERIFY THAT SRO IS CLEARED 
* AND SR2 IS UNLOCKED BY A RESET. AFTER MEMORY MANAGEMENT” § TURNED BACK ON, 
* SR2 IS CHECKED TO SEE THAT IT IS TRACKING AGAIN, 
** 
PITTI III TILILIL LILI LLL LLL ELL LEE ELE LEE EEE LETTE ELT 
T5736: SCOPE 
1$: MOV #600, KIPARS ;MAP KERNEL PAGE 5 TO 12-16k 
MOV KIPD *SETUP PDR4 FOR PAGE LENGTH ABORT 
MOV #77402,KIPDRS :SETUP PDRS OR R/ R/O ABORT 
MOV SLPE [SET LOOP ON ERROR POINTER TO 2% 
2$: MOV SR2.WASSR2 TREAD SR2 TO SEE IF ITS TRACKING 
MOV #2$-R1 :PUT EXPECTED VIRTUAL PC IN R1 


SEQ 0062 


— 


CJKDACO KTF11=AA MMU DIA 
CJKDAC.P11 


1982 
1983 
1984 
1985 
1986 
1987 
1988 
1989 
1990 
1991 
1992 
1993 
1994 
1995 
1996 
1997 
1998 
1999 


2000 
2001 
2002 
2003 


Sear anteeeeeee 


BBBBByyy 


SS 
So 


027662 


027664 
027672 
027700 


027704 
027710 
027712 


027714 
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027654 020137 001274 
027660 001401 


012737 


012737 


027672 


027740 


001200 
177572 
001272 


001200 
177576 
030100 


MACY11 


001110 
000250 


001272 


001274 
001274 


177572 


30A(1052) 
136 


3$: 
4$: 


5$: 
6$: 


7$: 


8$: 


9$: 


10$: 


118: 


12$: 


13$: 


14$: 


12=MAR-80 
MORE CHECKS OF SRO & SR2 
CMP R1,WASSR2 
BEQ 3$ 
ERROR 41 
MOV #4$,$LPERR 
MOV SR2.WASSR2 
MOV #4$.R1 
CMP R1,WASSR2 
BEQ 5$ 
ERROR 41 
MOV #6$,$LPERR 
MOV #7$.MMVEC 
CLR TMP1 
INC a#100500 
MOV #KERSTK ,KSP 
MOV SRO, $T 
MOV SR2.$TMP2 
MOV #8$.MMVEC 
INC ale 
MOV AKERSTK ,KSP 
MOV SRO, WASSRO 
MOV SR2.WASSR2 
CMP STMPO ,,WASSRO 
BEQ 9$ 
INC $TMP1 
CMP STMP2 ,WASSR2 
BEQ 10$ 
INC $TMP1 
TST $TMP1 
BEQ 11$ 
ERROR 37 
CLR $TMP1 
RESET 
MOV SRO, WASSRO 
TST WASSRO 
BEQ 12$ 
INC $TMP1 
MOV SR2,WASSR2 
CMP #12$,WASSR2 
BEQ 13$ 
INC $TMP1 
TST $TMP1 
BEQ 14$ 
ERROR 40 
MOV #1,SRO 


2 
08:00 PAGE 1-49 


:DID ms CONTAIN VIRTUAL PC AT 2%? 
BRANCH IF YES 


7SR2 NOT TRACKING CORRECTLY 

FOR TIGHTER SCOPE LOOP 

;REPLACE ERROR CALL WITH 

:‘BR 2$"' = 000767 

:SET LOOP "ON ERROR POINTER TO 4$ 

;READ SR2 TO SEE IF ‘te TRACKING 

:PUT EXPECTED VIRTUAL PC IN R1 
DID + CONTAIN VIRTUAL PC AT 4$ 


:BRANCH IF YES 

zSR2 NOT TRACKING CORRECTLY 

FOR TIGHTER SCOPE LOOP 

REPLACE, ERROR CALL WITH 
:‘BR 4$"' = 000 


SET LOOP ON ERROR POINTER TO 6$ 

;PUT ADDRESS OF 7$ IN M TRAP VECTOR 
CLEAR ERROR oa ged ad 

; CAUSE PAGE LENGTH ABORT - TRAP TO 7$ 
;RESTORE STACK POINTER AFTER ABORT 
7SAVE SRO'S INFORMATION ON PG. LGTH. ABORT 
SAVE SR2'S INFORMATION ON PG. LGTH. ABORT 

PUT ADDRESS OF 8$ IN M.M. TRAP VECTOR 
CAUSE R/O ABORT - TRAP TO 8$ 

Rea) sao FOL nine ae AFTER ABORT 


T ABORT 
21S SRO STILL HOLDING INFO ON FIRST ABORT? 
iSET ERROR INDICATOR 
DOES ~, STILL HOLD PC OF FIRST ABORT? 
: BRANCH YES 
7 SET ERROR INDICATOR 
[WERE SRO OR SRO CHANGED BY A SECOND ASORT? 
‘BRANCH ONO 
:ONE OF STATUS REGS. ee BY SECOND ABORT 


FOR TIGHTER SCOPE 
;REPLACE ERROR CALL WITH 
7‘ BR 6$"* = 000726 


;CLEAR ERROR INDICATOR 
EXECUTE A RESET, APPLYING AN “‘INIT'’ 
;READ SRO 
;WAS SRO CLEARED BY THE RESET? 
ae NOT CLEARED BY A RESET 
WAS. SRO UNLOCKED BY A RESET? 

“BRANCH IF_ YES 

:SR2 NOT UNLOCKED BY A RESET 

:WERE SRO & SR2 BOTH ‘RESET'' BY A RESET? 
ZBRANCH IF _YES 

:SRO OR SR2 NOT ‘RESET'’ BY A RESET 

:FOR TIGHTER SCOPE LOOP 
ZREPLACE ERROR CALL WITH 

BR 6$'' = 00067 


STURN MEMORY MANAGEMENT BACK ON 
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CJKDAC.P11  — 12=MAR=80 07:56 136 MORE CHECKS OF SRO & SR2 SEQ 0064 
2038 030140 013737 177576 001274 15$: MOV SR2,WASSR2 :READ SR2 TO SEE IF ITS TRACKING AGAIN 
2039 030146 012701 030140 MOV #15$,R1 PUT EXPECTED VIRTUAL PC IN R1 
2040 030152 020137 001274 CMP 4 WASSR2 DID SR2 CONTAIN VIRTUAL PC AT 15$ 
2041 030156 001401 BEQ 16$ CH IF YES 
2042 030160 104041 ERROR 41 :SR2 NOT TRACKING CORRECTLY 
2043 “FOR TIGHTER SCOPE LOOP 
2044 ;REPLACE ERROR CALL WITH 
2045 :'BR 6$"' = 000663 
2046 030162 012737 027612 001110 16$: MOV #1$,$LPERR RESET LOOP ON ERROR POINTER TO 1$ 
2047 030170 012737 077406 172310 MOV #77406,KIPDR4  =RESET PDR4 TO 128 BLKS, R/W 
2048 030176 012737 077406 172312 MOV #77406,KIPDRS5 :RESET PDRS. TO 128 BLKS, R/W 
2049 012737 002150 000250 MOV #MGMERR,MMVEC RESTORE ADDRESS OF NORMAL MEMORY 
2050 ;MANAGEMENT TRAP ROUTINE TO M.M. VECTOR 
aa 
2064 FREER EERE EKER KEEEKEREKEKEKKEKEEREKEKEREREEKEEEEKEK 

Sf : TEST 37 USER ABORT PICKS UP KERNEL SPACE VECTOR 
(4) t. THIS TEST a TO BE SURE THAT WHEN AN ABORT OCCURS WHILE IN 
(4) 7* USER MODE, THE TRAP owe ie ieores to rele IS TAKEN FROM 
(4) :* KERNEL SPACE. USER PAGE 0 IS MAPPED TO 12k (60000-77776) SO 
(4) i* THAT IF USER SPACE IS USED INSTEAD OF CERNEL L, THE NEW PC THAT 
(4) :* WAS LOADED AT LOC. 060004 IS USED INSTEAD OF THE NEW PC THAT 
(4) ye SHOULD BE PICKED UP FROM LOC. 000004. A TIMEOUT ERROR IS USED 
44 * TO CAUSE A TRAP TO ‘'4"', 
** 
(3) POTTTITITIII LITTLE TTTTLTLL LTTE LLL E TLE ELLE LLL LLL ETT TTT 
(2) 030212 TST37: SCOPE 
2065 030214 004737 035100 1$: JSR TOFF ; TURN OFF T-BIT TRAPPING FOR THIS TEST 
2066 030220 012737 030226 001110 MOV Ary $LPERR :SET LOOP ON ERROR POINTER TO 2$ 
2067 030226 005037 177776 2$: CLR PSW 'GO TO KERNEL MODE 
2068 030232 012706 001100 MOV AKERSTK,KSP sSETUP KERNEL STACK 4 og 
2069 030236 012737 000600 177640 MOV #600, UIPARO ;MAP USER PAGE 0 TO 12k 
2070 030244 012737 030326 000004 MOV #6$, aA “LOAD KERNEL VECTOR 4 (LOC. i” WITH 4$ 
2071 030252 012737 000340 000006 MOV #340, aK6 [LOAD VECTOR+2 WITH NEW P 
2072 030260 012737 140000 177776 MOV #140000 ,PSwW :GO TO USER MODE 
2073 030266 012706 000700 MOV #USESTK.USP :SETUP USER STACK PTR. 
2074 030272 012737 030312 000004 MOV ans SLOAD USER VECTOR 4 (LOC. 60004) WITH 3$ 
2075 030300 012737 000340 000006 MOV #340, a46 [LOAD VECTOR+2 WITH NEW PSW 
2076 030306 005737 160000 TST 160060 :CAUSE TIMEOUT ERROR TRAP TO eure 
2077 : SHOULD PICK UP NEW PC=4$ FROM KERNEL 
2078 [LOC. 4, NOT PC=3$ FROM USER TL LOC. 4 (=60004) 
2079 030312 013701 177776 3$: MOV PSW,R1 TSAVE PSW FOR ERROR 
2980 030316 010602 MOV SP,R2 SSAVE VALUE OF STACK POINTER FOR ERROR 
2081 030320 005037 177776 CLR PSW [BE SURE BACK IN KERNEL MODE 
2082 030324 104042 ERROR 42 :DID NOT TRAP THRU KERNEL SPACE 
2083 [FOR TIGHTER SCOPE LOOP 
2084 :RE PLACE FRROR CALL WITH 
2085 BR 2$'' = 000740 
2086 030326 005037 177776 4$: CLR PSW BE SURE BACK IN KERNEL MODE 
2087 030332 012706 001100 MOV #KERSTK,KSP RESTORE KERNEL S.P. IN CASE IT CHANGED 
2088 030336 005037 177640 CLR UIPARO “REMAP USER PAGE 0 TO 0-4k 
2089 030342 012737 140000 177776 MOV #140000, PSW :GO TO USER MODE 
2090 030350 012706 000700 MOV AUSESTK.USP SRESTORE USER STACK POINTER 
2091 030354 005037 177776 CLR BACK TO KERNEL MODE 


PSW :GO 
2092 030360 012737 002076 000004 MOV ATIMERR ,aa4 RESTORE ADDR. OF NORMAL CPU TRAP HANDLER TO 4 


CJKDACO KTF11=AA MMU DIAG MACY11 30A(1052) 12=-MAR-80 08:00 NPAGE 1-51 
CJKDAC.P11 12-MAR~80 07:56 137 USER ABORT PICKS UP KERNEL SPACE VECTOR SEQ 0065 
2093 030366 012737 030214 001110 MOV #1$,$LPERR ;RESET LOOP ON ERROR POINTER TO 1$ 
2094 030374 004737 035134 JSR PC,TON ;TURN T-BIT TRAPPING BACK ON 
2102 titi iit tri iii iit ititiiiiiiiitiiitiiiiitiity 
te tRTEST 40 RTI IN USER MODE DOES NOT CHANGE PSW 
** 
(4) :* THIS TEST CHECKS TO SEE THAT WHEN AN RTI IS EXECUTED IN USER 
‘a 3* MODE, THE MODE OR PRIORITY BITS OF THE PSW ARE NOT CHANGED. 
** 
(3) DUIS SISSIES ISIS ISIS OIRO ODI IOI ISIS III IE 
or63 030400 000004 TST40: SCOPE 
2104 030402 012737 030414 001110 1$: MOV #2$ ,SLPERR 2 SET LOOP ON ERROR POINTER TO 2$ 
2105 030410 012702 170000 MOV #170000,R2 ;LOAD ‘PRESENT & ett PSW VALUE INTO R2 
2106 030414 010237 177776 2$: MOV R2,PSwW 760 TO USER MODE-PRIORITY 
2107 030420 012746 000340 MOV #340,-(SP) [PUT A NEW PSW (PRIORITY=7) ON STACK 
2108 030424 012746 030432 MOV #3$,-(SP) :PUT NEW PC ON THE STACK 
2109 030430 000002 RTI :DO AN RTI FROM USER MODE 
2110 030432 013701 177776 3$: MOV PSW,R1 ZREAD NEW PSW INTO R1 
2111 030436 042701 007437 BIC #7437,R1 ;MASK OFF COND. CODE, T-BIT, AND UNUSED BITS 
2112 030442 005037 177776 CLR PSW 7GO BACK TO KERNEL MODE 
2113 030446 020201 CMP R2,R1 :DID PSW STAY IN USER, PRIORITY=0? 
2114 030450 001401 BEQ 4$ [BRANCH IF YES 
2115 030452 104060 ERROR 60 :PSwW CHANGED BY AN RTI FROM USER 
2116 ;FOR A TIGHTER SCOPE LOOP 
2117 :REPLACE ERROR CALL WITH 
2118 :* BR=2$"" 0760 
si 030454 012737 030402 001110 4$: MOV #1$,$LPERR TRESET LOOP ON ERROR POINTER TO 1$ 
2132 
2133 
2134 FREER ERE REE EEE EKEKRERKEKKKEREKREREKEREREKREKEKEKEKEEKEKEEKEKEK 
7 SRTEST 41 KT ERROR SERVICED BEFORE TIMEOUT ERROR 
** 
(4) ;* THIS TEST CHECKS TO SEE THAT 2d A CERTAIN VIRTUAL ADDRESS THAT 
(4) :* WOULD CAUSE A MEMORY MANAGEMENT ERROR CAUSES A TIMEOUT 
(4) :* ERROR FIRST, THE TIMEOUT ERROR IS SERVICED BUT THE MEMORY 
(4) :* MANAGEMEN ISN'T. THIS MEANS THAT SRO AND SR 
(4) 3* SHOULD NOT REPORT THE ERROR OR LOCK UP ITS VIRTUAL ADDRESS. 
44 3* a aie READ-ONLY VIOLATION IS USED AS THE POTENTIAL MEMORY MANAGEMENT 
** 
(4) i* 
(3) CI EKER ERK EERE EERE EKER EEKREEEEEREREEEKKEKK 
2) 030462 TST41: SCOPE 
2135 030464 012705 077006 1$: MOV #77006,R5 ; LOAD Bay DATA INTO RS 
2136 030470 010537 172316 MOV R5,KIPDR7 “MAP PAGE 7 R/W PLF=176 
2137 030474 012737 030522 000004 MOV #33 044 :SET CPU TRAP VECTOR TO ADDRESS OF 3$ 
2138 030502 012737 030524 000250 MOV #4$ ,a#250 [SET M.M. TRAP VECTOR TO ADDRESS OF 4$ 
2139 030510 012737 030516 001110 MOV #2$,SLPERR [SET LOOP ON ERROR POINTER TO 2$ 
2140 030516 005237 177700 2$: INC a#177700 sr = PLF ABORT AND POTENTIAL TIMEOUT 
2141 030522 104043 3$: ERROR 43 : TRAPPED THRU CPU TRAP VECTOR BUT SHOULDN'T HAVE 
2142 FOR TIGHTER SCOPE LOOP 
2143 ;REPLACE ERROR CALL WITH 
2144 :'BR 2$"' 77 
2145 030524 012706 001100 4$: MOV MKERSTK ,KSP RESTORE STACK POINTER AFTER TRAPPING 
2146 030530 013737 177572 001272 MOV SRO, WASSRO TREAD STATUS REG.O 
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2147 030536 013737 177576 001274 S$: MOV SR2,WASSR2 :READ STATUS REG. 2 
2148 030544 012700 040017 MOV #40017,RO [LOAD EXPECTED SRO CONTENTS INTO RO 
2149 030550 020037 001272 CMP RO. WASSRO ;SRO PLF ERROR BIT 
2150 030554 001401 BEQ OS CH IF YES 
2151 030556 104044 ERROR 44 SRO DIDN'T REPORT PLF ERROR 
2152 :FOR TIGHTER SCOPE LOOP 
2153 LACE, ERROR CALL WITH 
2154 = 000741 
2155 030560 012701 030516 6$: MOV #2$,R1 OND oF PECTED SR2 CONTENTS INTO R1 
2156 030564 020137 001274 CMP R1,WASSR2 [WAS SR2 LOCKED BY PLF ABORT? 
2157 030570 001401 BEQ 7$_ ‘BRANCH IF YES 
2158 030572 104044 ERROR 44 'SR2 DIDN'T LOCK UP VIRTUAL ADDRESS 
2159 ‘FOR TIGHTER SCOPE LOOP 
2160 3REP LACE ERROR CALL WITH 
2161 2$"' = 000741 
2162 030574 042737 160000 177572 7$: BIC #160000, SRO *CLEAR ERROR BITS THAT WERE SET IN SRO 
2163 030602 012737 002076 000004 MOV ATIMERR ae SRESTORE ADDRESS OF NORMAL CPU TRAP HANDLER 
2164 030610 012737 002150 000250 MOV AMGMERR . #250 RESTORE ADDRESS OF NORMAL M.M. TRAP HANDLER 
2165 030616 012737 077406 172316 MOV #77406,KIPDR7 :REMAP PAGE 7 TO READ/WRITE PFs 177 
2156 030624 012737 020464 001110 MOV #1$,$LPERR SRESET LOOP ON ERROR POINTER TO 1$ 
c 
2182 
2183 FI I RTI IT ITI RRR REE REE RIK 
(3) ; TEST 42 PC & PSW SAVED FOR KT ERROR DURING SERVICE OF TIMEOUT ERROR 
(4) i THIS TEST CHECKS THE PC AND PROCESSOR STATUS WORD SAVED WHEN 
(4) :* A_KT ERROR OCCURS DURING THE SECOND PUSH ON THE STACK DURING 
(4) * SERVICING OF A TIMEOUT ERROR. DURING A E ER 
(4) * SEQUENCE SUCH AS THIS, THE PSW SAVED WILL BE THE ONE PICKED UP 
(4) :* FROM VECTOR+2 (LOC. 6 IN THIS CASE) AFTER THE FIRST TRAP, 
(4) t+ NOT THE PSW PRESENT BEFORE THE FIRST TRAP. SRO AND SR2 
(4) :* SHOULD RECORD THE KT ERROR (A R/O VIOLATION BY THE USER STACK PTR.) 
** 
(4) :* NOTE THAT THE PREVIOUS MODE BITS <13:12> OF THE PSW 
(4) * WILL BE SET IN THE PSW THAT IS SAVED. 
** 
(3) PETTITT IT IIIT ITLL TILT T LITTLE LTTE EEE LEE EEL ELLE EEE EET 
(2) 030632 TST42: SCOPE 
2184 030634 737 035100 1$: JSR PC, TOFF ; TURN T-BIT TRAPPING OFF FOR THIS TEST 
2185 030640 012737 17764 MOV #600, UIPAR3 [MAP USER PAGE 3 TO 12-16K 
2186 030646 012737 000600 177650 MOV #600. UIPAR ZMAP USER PAGE 4 TO 12-16k 
2187 030654 012737 077402 177606 MOV #77402,UIPDR3 MAP USER PAGE 3 READ-ONLY 
2188 030662 012737 077406 177610 MOV #77406.UIPDR4  :MAP USER PAGE 4 READ/WRITE 
2189 030670 012737 030744 000004 MOV #46$, 046 SLOAD ADD RESS OF 4$ IN CPU (TIMEOUT) VECTOR 
2190 030676 O12 140017 MOV #140017, a#6 [LOAD PSwW THAT OE MOULD BE PUT ON STACK IN VECTOR+2 
2191 030704 012737 030744 000250 MOV #4$,a#250 [LOAD ADDRESS OF 4$ IN M.M, TRAP VECTOR 
2192 030712 01 0 MOV 346, a#252 [LOAD A KERNEL PSwW IN MMVEC+2 
2193 030720 012737 030726 001110 MOV #2$, $LPERR *SET LOOP ON ERROR POINTER TO 2$ 
2194 030726 012737 140000 177776 2$: MOV ~ #1460000, PSW :GO TO USER MODE 
2195 030734 012706 100002 MOV #100002.USP :SET USER STACK PTR. SO SECOND PUSH IS IN PG. 3 
2196 030740 005737 177700 3$: TST a#177700 [CAUSE TIMEOUT ERROR THAT WILL CAUSE 
2197 [R/O ERROR WHEN TRY TO SAVE OLD oe 
2198 030744 016601 000002 4$: MOV 2(KSP) ,R1 [PUT PSW SAVED ON KERNEL STACK INTO R1 
2199 030750 011603 MOV (KSP) ,R3 [PUT PC SAVED ON KERNEL STACK IN/O R3 
2200 030752 013737 177572 001272 MOV SRO, WASSRO [READ THE CONTENTS OF M.M. STATUS REG. 0 
2201 030760 013737 177576 001274 MOV SR2.WASSR2 TREAD THE CONTENTS OF M.M. STATUS REG. 2 
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001176 
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177572 


177776 


020147 


030740 


& PSW SAVED FOR KT ERROR DURING SERVICE OF TIMEOUT ERROR SEQ 0067 
BIC #160000,SRO —— ; CLEAR THE ERROR BITS IN SRO 
CLR = PSW BE SURE IN KERNEL MODE 
MOV - AKERSTK ,KSP :RESTORE KERNEL STACK POINTER 
MOV  #140000;PSW _:GO TO USER 
MOV ——- #USESTK- USP ERESTORE USER STACK POINTER 
CLR = PSW :GO BACK TO KERNEL MODE 
CLR _ $TMPO CLEAR ERROR INDICATOR 
CMP = R1,#170017 WAS THE PSW SAVED THE ONE PICKED UP BY THE 
i TIMEQUT_TRAP FROM ERRVEC+2? 
VALUE 170017 = PSW FROM LOC. 6 WITH 
PREVIOUS MODE BITS © USER 
BEQ 5$ BRANCH IF YES 
INC $TMPO WRONG PSW SAVED D “DOUBLE ERROR’’ SEQUENCE 
5$: (MP R3, #344 {WAS THE PC AT. THE “rine OF THE TIMEOUT ERROR 
SAVED ON THE STACK? 
BEQ = 6$ BRANCH IF YES 
INC $TMPO WRONG PC SAVED DURING TRAP SEQUENCE 
6$: Ce WASSRO,#20147 DID SRO REPORT - USER, PAGE 3, R/O ABORT? 
BEQ ss 7S BRANCH IF YES 
INC $TMPO SRO DID NOT REPORT R/O ABORT 
7$: (MP  —s- WASSR2,#3$ DID SR2 LOCK UP VIRTUAL ADDR. OF LAST 
; INSTRUCTION SUCCESSFULLY FETCHED? 
BEQ ss 8$ BRANCH IF YES 
INC $TMPO :SR2 DID NOT LOCK UP ADDR. OF TIMEOUT INST. 
8$: TST $TMPO ZANY ‘ERRORS'' DURING TRAP SEQUENCE? 
BEQ OOS ZBRANCH IF NO 
ERROR 45 THE WRONG PC OR PSW WERE SAVED 
OR SRO OR SR2 DID NOT REPORT R/O 
ERROR DURING TIMEOUT - KT TRAP 
; SEQUENCE 
FOR TIGHTER SCOPE LOOP 
REPLACE ERROR CALL WITH 
2$"* = 000710 
9S: MOV = ATIMERR, aa RESTORE ADDRESS OF NORMAL CPU TRAP HANDLER 
MOV #340,aM6 RELOAD ERRVEC+2 WITH KERNEL PSW 
MOV § AMGMERR,a@#250 RESTORE ADDRESS OF NORMAL M.M. TRAP HANDLER 
MOV  - #77406,UIPDR3 REMAP USER PAGE 3 READ/WRITE 
MOV #18, $LPERR RESET LOOP ON ERROR POINTER TO 1$ 
SR T-BIT TRAPPING 
POTISTITITITITITTTITITTTTITITITITTT TT LETT TLE ELT TT LTT TET 
** 
$f THIS GROUP OF TESTS WILL TEST ALL THE LOGIC ASSOCIATED WITH 
i* THE "MOVE FROM PREVIOUS’ AND MOVE TO PREVIOUS'® INSTRUCTIONS. 
-* 
PITIIIIIII ITIL TIT ITITITITITITTLT LT LETTE LEE LETTE * 


CL AAR EEEEEREAEREREEEKEEAEEAEEKAEEREAEEEEEEEEEEREEREKEEEKE 


i*TEST 43 MOVE FROM PREVIOUS (USER) I-SPACE 
pa be TEST USES THE ‘MFPI' a De TO ENSURE THAT THE 


* 
* 
rtd EVIOUS MODE IS CLOCKED CORRECT 

;@ THERE IS A DESCRIPTION BEFORE EACH DESTINATION MODE TESTED, 
** 

te 

ie 


IF THE CORRECT MODE (USER) IS NOT ENABLED A NON-RESIDENT ABORT 


°. 
CJKDACO KTF11=AA MMU D MACY11 30A(1052) 12=-MAR-80 08:00 PAGE 1-54 
CJKDAC.P11 tD-MAR-B0 "97: 56 143 MOVE FROM PREVIOUS (USER) I=SPACE SEQ 0068 


4) :* WILL OCCUR AND TRAP TO 23$, WHERE THE ERRORS ARE REPORTED. 
Ea 

(3) DUIS OEEE EEO ISIS IIIT OSOIIIIE I IOIOIISIIISISIOIIIIIIIO ISIN OR 
(2) 031154 000004 1143: SCOPE 

2261 031156 005037 172340 1$: CLR IPARO :MAP KERNEL PAGE 0 TO 0-4k 

2262 031162 012737 000200 1723 MOV #200,KIPAR1 ‘MAP KERNEL PAGE 1 TO 4-8k 

2263 031170 012737 000400 172344 MOV #400. KIPAR2 [MAP KERNEL PAGE 2 TO 8-12k 

2264 031176 012737 000600 172346 MOV #600, KIPAR3 [MAP KERNEL PAGE 3 TO 12=16kK 

2265 031204 012737 000600 172350 MOV #600. KIPARG ‘MAP KERNEL PAGE 4 TO 12-16kK 

2266 031212 012737 007600 172356 MOV #7600, KIPAR7 ;MAP_KERNEL PAGE 7 TO THE 1/0 PAGE 

2267 031220 012700 077406 MOV #77406,RO sMAKE ALL KERNEL I-SPACE PAGE S PRESIDENT 

2268 SREAD/WRITE, LENGTH 200 BLOCKS 

2269 031224 012702 000010 MOV #10,R2 [SET LOOP COUNTER TO 8 

2270 031230 012701 172300 MOV #KIPDRO,R1 ‘PUT ADDRESS OF FIRST PDR IN R1 

2271 031234 010021 2$: MOV RO, (R1)+ LOAD PDR WITH 77406 

2272 031236 077202 SOB R2.2$ SLOOP TO 2$ UNTIL ALL PDRS LOADED 

2273 031240 012702 000010 MOV #10,R2 :SET LOOP COUNTER TO 8 

2274 0312464 012701 177600 MOV AUIPDRO,R1 :PUT ADDRESS OF FIRST PDR IN R1 

2275 031250 010021 3$: MOV RO, (R1)+ ‘LOAD PDR WITH 77406 

2276 031252 077202 SOB R2,3$ [LOOP TO 3$ UNTIL ALL PDRS LOADED 

2277 031254 012737 000000 177640 MOV #000, UIPARO “MAP USER I PAGE 0 TO 0-4k 

2278 031262 012737 000200 177642 MOV #200,UIPAR1 ‘MAP USER I PAGE 1 10 4-8K 

2279 031270 012737 000400 177644 MOV #400 ,UIPAR2 “MAP USER I PAGE 2 TO 8-12k 

2280 031276 012737 17764 MOV #600, UIPAR3 [MAP USER I PAGE 3 TO 12-16k 

2281 031304 012737 007600 177656 MOV #7600,UIPAR7 | :MAP USER I PAGE 7 TO THE I/O PAGE 

2082 031312 012737 031320 001110 a MOV #4$,$LPERR :SET LOOP ON ERROR TO 4$ 

2284 031320 012737 077406 172310 MOV #77406,KIPDR4 ;:KERNEL I-SPACE PAGE 4 READ/WRITE 

2285 031326 012737 000600 172350 MOV #600, KIPARG :MAP KERNEL I PAGE 4 TO 12k 

2286 031334 012737 000600 177650 MOV #600. UIPAR4 [MAP USER I PAGE 4 TO 12k 

2287 031342 012700 036514 MOV #36514 ,RO [LOAD DATA PATTERN INTO RO 

2288 031346 010037 100000 MOV RO, #100000 [LOAD DATA PATTERN INTO PHY 60000 

2289 031352 012737 031754 000250 MOV #25$ MAVEC [SET M.M. VECTOR TO 23$ 

2290 031360 105037 172310 CLRB _—«KIPDR4 [MAKE KERNEL I-SPACE PAGE 4 NON-RESIDENT 

2291 ;THE FOLLOWING WILL TEST DSTM=0 MFP] 

2293 031364 012737 031372 001110 ov #5$ SLPERR zSET LOOP ON ERROR POINTER TO 5$ 

2294 031372 012737 030340 177776 5$: MOV #03 3034 [MAKE PREVIOUS MODE USER 

2098 031400 006506 6$: MFPI ZPUT USER STACK POINTER ON KERNEL 

2297 031402 022706 001100 CMP #KERSTK.KSP [WAS SOMETHING PUSHED ON STACK AT 6$ 

2298 031406 001407 BEQ 7$ ‘BRANCH IF NOTHING WAS PUSHED 

2299 031410 012600 MOV (KSP) +,RO *POP KERNEL STACK INTO RO 

2300 031412 012701 000700 MOV MUSESTK,R1 ZEXPECTING TO GET 700 AS USP 

2301 031416 020001 CMP RO,R1 ‘DID YOU GET THE RIGHT MPOIRTER? 

2302 031420 001403 BEQ 8$ *BRANCH IF YOU DID 

2303 031422 104046 ERROR 46 ‘WRONG THING WAS PUSHED ON STACK 

2304 [FOR TIGHTER SCOPE LOOP 

2305 ;REPLACE ERROR CALL WITH 

2306 "BR 5$"° = 000763 

2307 031424 000401 BR 84 ‘BRANCH TO NEXT TRY 

2308 031426 104050 7$: ERROR 50 [NOTHING PUSHED ON STACK 

2309 :FOR TIGHTER SCOPE LOOP 

2310 REPLACE ERROR CALL WITH 

2311 $"' = 000761 

2312 031430 8$: yTHE FOLLOWING WILL TEST sia MFP I. 
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031442 
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100000 


031474 
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100000 


031526 
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00000 
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100002 
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100000 
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001110 
177776 


001110 
177776 


001110 
177776 


001110 
177776 
001202 


9$: 


10$: 
11$: 


12$: 
138: 


14$: 
15$: 


16$: 


17$: 


.. 
aS cane 08:00 PAGE 1-55 
MOVE FROM PREVIOUS (USER) I-SPACE 


MOV #9$ SLPERR :SET LOOP ON ERROR POINTER TO 9$ 
MOV #36514 SRELOAD DATA PATTERN IN RO 

MOV 030846, Psy [MAKE PREVIOUS MODE USER 

MOV #100000,R2 [LOAD VIRTUAL ADDRESS INTO R2 

MFP] (R2) ‘READ FROM PHYSICAL 60000 

MOV (KSP)+,R1 :POP KERNEL STACK INTO R1 

CMP RO,R1 ‘WAS DATA FETCHED SAME AS STORED 
BEQ 10$ [BRANCH IF CORRECT DATA WAS TOE CHED 
ERROR 46 : WRONG DATA WAS FETCHED 


;FOR TIGHTER SCOPE LOOP 
;REPLACE ERROR CALL WITH 
;‘BR 9$"* = 000766 


;THE FOLLOWING WILL TEST _DSTM=2 MFPI. 
MOV #11$,$LPERR ; SET 


LOOP ON ERROR POINTER TO 11$ 
MOV #030540, PSW ;MAKE PREVIOUS MODE USER 
MOV #100000.R2 LOAD VIRTUAL ADDRESS INTO R2 
MFP] (R2)+ “READ FROM PHYSICAL 60000 
MOV (KSP)+,R1 :POP KERNEL STACK INTO R1 
CMP RO,.R1 TWAS DATA FETCHED SAME AS STORED 
BEQ 12$ [BRANCH IF CORRECT DATA WAS FETCHED 
ERROR 46 ‘WRONG DATA WAS FETCHED 


REPLACE | ERROR CALL WITH 
;‘ BR = 000766 
;THE FOLLOWING WILL TEST DSTM=3 MFPI. 

MOV #13$,$ 


LPERR :SET LOOP ON ERROR POINTER TO 13% 
MOV #030340,PSW [MAKE PREVIOUS MODE USER 
MFP] O77 00006 :READ FROM PHYSICAL 60000 
MOV (KSP)+,R1 ‘POP KERNEL STACK INTO R1 
CMP RO,R1 [WAS DATA FETCHED SAME AS STORED 
BEQ 14$ ‘BRANCH IF CORRECT DATA WAS FETCHED 


ERROR 46 [WRONG DATA WS Oe teab 
sREPLACE ERROR CALL WITH 
= 000767 


; THE FOLLOUING WILL TEST ‘DeiMee MEPL. 
MOV Ab LPERR SET LOOP ON ERROR POINTER TO 15$ 


MOV 30540 0,PSw SMAKE PREVIOUS MODE USER 

7100002: R2 [LOAD VIRTUAL ADDRESS INTO R2 
MFP] =(R2) [READ FROM PHYSICAL 60000 
MOV (KSP)+,R1 POP KERNEL STACK INTO R1 
CMP RO,R1 [WAS DATA FETCHED SAME AS STORED 
BEQ 16$ ‘BRANCH IF CORRECT DATA WAS FETCHED 
ERROR 46 ;WRONG DATA WAS FETCHED 


;REPLACE ERROR CALL WITH 
:'BR 15$°* = 000766 
7 THE FOLLOWING WILL TEST DSTM=5 MFPI. 


Mov #17$,$LPERR ;SET LOOP ON ERROR POINTER TO 17$ 
MOV #030540 PS [MAKE PREVIOUS MODE USER 


MOV #100000,$TMP2 ;LOAD TEST LOC. VIRT. — fone” LOC. STMP2 


MOV #<$TMP2+2>,R2 ; LOAD ADDR. OF $TMP2+2 | 
MFP] a-(R2) READ FROM PHYSICAL $0000. 
MOV (KSP)+,R1 POP KERNEL STACK INTO R1 


SEQ 0069 


. 
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WAS DATA_FETCHED SAME AS STORED 
;BRANCH IF CORRECT DATA WAS FETCHED 
ERROR HED 


;THE FOLLOWING WILL TEST’ * DSTM=6 MFPI. 


031650 ; #19$, $LPERR :SE1 LOOP ON ERROR POINTER TO 19$ 
030340 : 4 #030340,PSw E — USER 


CL Re 
100000 100000(R2) 
(KSP)+,R1 
R1 “WAS DATA_FETCHED SAME AS STORED 


R 
20$ ‘BRANCH IF CORRECT DATA WAS FETCHED 
46 : FETCHED 


031672 
;REPLACE, ERROR CALL WITH 
031674 : = THE FOLLOWING WILL TEST ‘ DSTM=? MFPL. 


031674 031702 001110 4218 SLPERR :SET LOOP ON ERROR POINTER TO 21$ 
030340 177776 : 30340, PSwW “MAKE PREVIOUS MODE USER 
100000 001202 #108060" STMP2 LOAD TEST LOC. V.A. INTO $TMP2 
001202 MOV ASTMP2 ,R2 [LOAD ADDRESS OF $TMP2 INTO R2 
031722 006572 000000 a0(R2) [USE $TMP2 TO FETCH VIRTUAL 
TADDRESS OF 60000 
031726 (KSP) +,R1 [POP KERNEL STACK INTO R1 
317 RO,R1 [WAS DATA FETCHED SAME AS STORED 
228 SBRANCH IF CORRECT DATA WAS FETCHED 
46 ‘WRONG DATA WAS FETCHED 
‘FOR TIGHTER SCOPE LOOP 
:REPLACE ERROR CALL WITH 
21$'' = 000762 
062150 000250 : WMGMERR,MMVEC :SET M.M. VECTOR TO NORMAL ROUTINE 
031156 #1$,$LPERR *SET LOOP POINTER TO START OF TEST 
031752 000423 BR TST44 BRANCH TO NEXT TEST 


031754 0072 : (KSP) +, TRAPPC ;SAVE PC & PS OF TRAP 
031760 012637 00 (KSP) +, TRAPPS 
0317 SRO, WASSRO ;SAVE SRO FOR ERROR TYPEOUT 
SR2,WASSR2 
#160000, SRO 


; OPE L 
:REPLACE ERROR CALL WITH 
A‘ NOP" 4 


032010 013746 TRAPPS,=(KSP)  ;PUT PC & PS OF TRAP ON STACK 
032014 013746 MO TRAPPC , = (KSP) 
032020 000002 


FRAT ERE AERRRERERREEREEEERE EE RERR ERE 


TRTEST ae MOVE TO PREVIOUS (USER) I-SPACE 


** 





CJKDACO KTF1 ~AA MMU D 
tD-MAR-BO. 07: 56 


CJKDAC P11 


032226 


012737 
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012737 
012746 
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012737 


077406 
077406 
000600 


000600 
032634 


030340 
007777 


007777 


030340 
000700 
032144 
100000 
125252 
172310 
000006 


032216 
030340 
125252 
100000 


172310 


~ 000006 


G 
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177776 


001110 


— 


© 8s 
eur: eee ee HR 


tate Be 


#77406, KIPDR4 


#600, UIPAR4 


#20$ ,MMVEC 7 SET 
7 THE FOLLOWING WILL TEST’ DSTM=O MTPI 


MAKE PREVIOUS MODE USER 
PUSH DATA ON KERNEL STACK 
;LOAD USER STACK POINTER 


#030340 ,PSw 
#7777 ,~(KSP) 
USP 


USP 
(KSP)+,R1 
#7777 ,R1 
3$ 


50 


#030340 ,PSw 
— 27 (KSP) 


TP 
;THIS WILL_TEST DSTM = 1 MTP 
MOV 5$,$LPERR 


#10 »R2 
#125252 .,RO 


#8$ ein’ pas 

#030340,P 

#125252, RO” 
#100000, R2 


RO. =(KSP) 
KIBDR4 


Re 
#006 ,KIPDR4 


“oF 


THIS TEST USES THE "MTPI" INSTRUCTION TO ENSURE THAT THE 
PREVIOUS MODE IS CLOCKED CORRECTLY 
THERE IS A DESCRIPTION BEFORE EACH DESTINATION MODE TESTED, 


IF THE CORRECT MODE IS NOT ENABLED A NON-RESIDENT ABORT 
WILL OCCUR AND TRAP TO 20$, WHERE THE ERRORS ARE REPORTED. 


SERRE EAR EEE 


KERNEL I-SPACE PAGE 4 READ/WRITE 
USER I=SPACE PAGE 4 ne 
;MAP KERNEL I PAGE 4 TO 12k 
MAP wt I PAGE 4 to. 2K 

M. VECTOR TO 20$ 


an ay USER STACK POINTER 
POP KERNEL STACK INTO R1 

WAS USER STACK POINTER CHANGED 
CH IF IT WAS 


TUSER STACK POINTER NOT CHANGED 
:FOR TIGHTER SCOPE LOOP 

:RE PLACE ERROR CALL WITH 

7’ BR 2$"' 7 


64 
MAKE PREVIOUS MODE USER 
2GET READY TO RESTORE USER S. POINT 
sa USER STACK POINTER 


2 SET LOOP _ON ERROR POINTER TO 5$ 
;LOAD VIRTUAL “er ae pre R2 


[LOAD TEST DATA INT 


:RE DRES 
SEE IF DATA_WAS STORED AT CORRECT PLACE 
BRANCH _IF STORE WAS CORRECT 
: INCORRECT STORE 
:FOR TIGHTER SCOPE LOOP 
sREPLACE ERROR CALL WITH 
5$'* = 000765 


: THE FOLLOWING WILL TEST” ‘DeIMeD MIPI. 


SET LOOP ON ERROR POINTER TO 8$ 
;MAKE PREVIOUS MODE USER 

LOAD TEST DATA INTO RO 

LOAD VIRTUAL ADDRESS INTO R2 

;PUSH TEST DATA ON 

;MAKE KERNEL PAGE 

;LOAD TEST DATA INTO PHYSICAL 60000 
SMAKE KERNEL PAGE 4 RESISENT 


SEQ 0071 
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aba 


100000 


032266 
030340 
052525 
172310 
100000 


000006 
100000 


032340 
030340 
125252 


100002 
172310 


000006 
100000 


032426 
030340 
052525 
001204 

00000 


172310 


000006 
100000 
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001110 
177776 


172310 


001110 
177776 


172310 


172310 


9$: 


10$: 


11$: 


12$: 


12$: 


14$: 


", 
12-MAR-80 08:00 PAGE 1- 8 
MOVE TO PREVIOUS (USER) 1=SPACE 


MOV 4100000 ,R1 sREAD FROM ADDRESS 60000 


CMP RO,R1 ;SEE IF DATA _WAS STORED alta 
BEQ 9$ BRANCH IF STORE WAS CORRECT 
ERROR 47 + INCORRECT STORE 


;FOR TIGHTER SCOPE LOOP 
;REPLACE ERROR CALL WITH 
;‘BR 8$'' = 000764 


;THIS WILL TEST DSTM = 3 MTPI. 
MOV #10$,$LP 


ERR :SET LOOP ON ERROR POINTER TO 10$ 
MOV #030340,PSw [MAKE PREVIOUS MODE U 
MOV #52525,R ‘LOAD TEST DATA INTO UOT 

RO, -(KSP) :PUSH TEST DATA ON KERNEL STACK 

CLRB —«KIPDR4 ‘MAKE KERNEL I PAGE 4 NON-RESIDENT 
MTP] a#100000 ‘LOAD TEST DATA INTO PHYSICAL 60000 
MOVB #006, KIPDR4 ‘MAKE KERNEL PAGE 4 RESIDENT 
MOV a#100000,R1 ‘READ FROM ADDRESS 60000 
CMP RO,R1 :SEE IF DATA WAS STORED CORRECTLY 
BEQ 11$ BRANCH IF STORE WAS CORRECT 
ERROR 47 : INCORRECT STORE 


OR TIGHTER SCOPE LOOP 
EREPLACE ERROR CALL WITH 
:'BR 10$'' = 000763 
;THIS WILL TEST DSTM = 4 MTPI. 
MOV #12$, $LPERR zSET LOOP ON ERROR POINTER TO 12$ 
MOV 4030840, PSW [MAKE PREVIOUS MODE USER 
MOV #125252 F °RO : LOAD TEST DATA INTO RO 


MOV 0,-(KSP) ‘PUSH TEST DATA ON KERNEL STACK 
MOV #100002 ,R2 [LOAD VIRTUAL ADDRESS INTO R2 
CLRB —«KIPOR4 [MAKE KERNEL I PAGE 4 NON-RESIDENT 
MIP] ~=(R2) [LOAD TEST DATA INTO PHYSICAL 60000 
MOVB #006,KIPDR4 :MAKE K RNEL PAGE 4 RESIDENT 
MOV a4#100000,R1 READ FROM ADDRESS 60000 
CMP RO.R1 :SEE IF DATA WAS STORED CORRECTLY 
BEG 13$ [BRANCH IF STORE WAS CORRECT 
ERROR 47 S INCORRECT STORE 

‘FOR TIGHTER SCOPE LOOP 


sREPLA CE ERROR CALL WITH 
1 = 000762 
;THE FOLLOWING WILL TEST * DSTM=5 MTPI. 


MoV #14$,$LPERR :SET LOOP ON ERROR POINTER TO 14$ 

MOV #030340,PSwW [MAKE PREVIOUS MODE USER 

MOV #52525 RO [LOAD TEST DATA INTO RO 

MOV A<$TMPO+2>,R2 ;LOAD ADDR. OF LOC. $TMP2+2 INTO R2 

MOV #100000,$TMP2 LOAD VIRT. ADDR. OF TEST foc. ae $TMP2 
‘PUSH TEST DATA ON KERNEL STACK 

KIPDR4 [MAKE KERNEL PAGE 4 NON-RESIDENT 


MIP] a-(R2) LOAD TEST DATA INTO PHYSICAL 60000 
MOVB  #006,KIPDR4 : KERNEL 4R 

MOV a#100000,R [READ FROM ADDRESS 

CMP RO,R1 :SEE IF DATA WAS STORED CORRECTLY 
BEQ 15$ SBRANCH IF STORE WAS CORRECT 

ERROR 47 : INCORRECT STORE 


iF 
REPLACE ERROR CALL WITH 


‘. 
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CJKDAC.P11 —- 12=MAR=80 07:56 144 MOVE TO PREVIOUS (USER) I=SPACE SEQ 0073 

2536 "BR 14$'' = 000764 

2937 032456 15$: ;THIS WILL TEST DSTM = 6 MTPI, 

2539 032456 012737 032500 001110 ov #16$,$LPERR ;SET LOOP ON ERROR POINTER TO 16$ 

2540 032464 012737 030340 177776 MOV #030340 0,PSwW ‘MAKE PREVIOUS MODE USER 

2541 032472 012700 052525 MOV #52525,RO [LOAD TEST DATA INTO RO 

2542 032476 005002 CLR R2 [MAKE REGISTER 2 ZERO 

2543 032500 010046 16$: MOV RO,=(KSP) :PUSH TEST DATA 50N KERNEL STACK 

2544 032502 105037 172310 CLRB  —KIPDR4 SMAKE KERNEL I PAGE 4 NON-RESIDENT 

2545 032506 006662 100000 MTPI  100000(R2) SLOAD TEST DATA INTO PHYSICAL 60000 

2546 032512 112737 000006 172310 MOVB #006, KIPDR4 ‘MAKE KERNEL PAGE 4 RESIDENT 

2547 032520 013701 100000 MOV 34100000,R1 SREAD FROM ADDRESS 

2548 032524 020001 CMP RO,R1 :SEE IF DATA WAS STORED CORRECTLY 

2549 032526 001401 BEQ 17$ ‘BRANCH IF STORE WAS CORRECT 

2550 032530 104047 ERROR 47 : INCORRECT STORE 

2551 [FOR TIGHTER SCOPE LOOP 

2552 “REPLACE ERROR CALL WITH 

2553 :'BR 16$'' = 000763 

2994 032532 17$: ;THE FOLLOWING WILL TEST DSTM=7 MTPI. 

2556 032532 012737 032564 001110 ov #18$, $LPERR :SET LOOP ON ERROR POINTER TO 18% 

2557 032540 012737 030340 177776 MOV #030340,PSw [MAKE PREVIOUS MODE USER 

2558 032546 012700 125252 MOV #129252, RO *LOAD TEST DATA INTO RO 

2559 032552 012737 100000 001202 MOV #100000.$TMP2 LOAD VIRT. ADDR. OF TEST LOCATION 

2560 ‘INTO LOCATION $TMP2 

2561 032560 012702 001202 MOV ASTMP2 ,R2 [LOAD ADDRESS OF $TMP2 INTO R2 

2562 032564 010046 18$: MOV RO,-(KSP) ‘PUSH TEST DATA ON KERNEL STACK 

2563 032566 105037 172310 CLRB  ——KIPDR4 [MAKE KERNEL PAGE 4 NON-RESIDE 

2564 032572 006672 000000 MTP]  @0(R2) ‘LOAD TEST DATA INTO PHYSICAL 60000 

2565 032576 112737 000006 172310 MOVB #006, KIPDR4 ;MAKE KERNEL PAGE 4 RESIDENT 

2566 032604 013701 100000 MOV a4#100000,R1 READ FROM ADDRESS 60000 

2567 032610 020001 CMP RO,R1 SSEE IF DATA WAS STORED CORRECTLY 

2568 032612 001401 BEQ 19$ [BRANCH IF STORE WAS CORRECT 

2569 032614 104047 ERROR 47 S INCORRECT STORE 

2570 ‘FOR TIGHTER SCOPE LOOP 

2571 SREPLACE ERROR CALL WITH 

2572 :'BR 18$'' = 000763 

2573 032616 012737 032024 001110 19$: MoV #1$,$LPERR SSET LOOP POINTER To START OF TEST 

2574 032624 012737 002150 000250 MOV AMGMERR,MMVEC :RESTORE M.M. VECTOR TO NORMAL ROUTINE 

2575 032632 000423 BR TST45 BRANCH TO NEXT TEST 

2577 

2578 032634 012637 001266 20$: MOV (KSP)+,TRAPPC ;SAVE PC & PS OF TRAP 

2579 032640 012637 001270 MOV (KSP) +, TRAPPS 

2580 032644 013737 177572 001272 MOV SRO, WASSRO ;SAVE SRO FOR ERROR TYPEOUT 

2581 032652 013737 177576 001274 MOV SR2,WASSR2 SSAVE SR2 FOR ERROR TYPEOUT 

2 042737 1 177572 BIC #160000, SRO [CLEAR ERROR BITS IN SRO 

2583 032666 104051 ERROR 51 : TRIE TO LOAD A N.R. PAGE 4 

2584 OR TIGHTER SC ooP 

2585 REPLACE ERROR CALL WITH 

2586 7A ‘NOP’ = 000240 

2587 032670 013746 001270 MOV TRAPPS,-(KSP) :PUT PC & PS OF TRAP ON STACK 

2588 032674 013746 001266 MOV TRAPPC ; =(KSP) 

2589 032700 000002 RTI ;RETURN TO TEST 
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032702 
032704 
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000004 
012700 
012702 


0 
012702 


012737 


000401 
104050 


077406 
000010 
177600 


032732 


033054 
140340 
036514 
100000 
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000250 
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PAGE 1 
MOVE TO PREVIOUS (USER) I=SPACE 


SEAR ERE EEE RRR ERA EKEEEE EH 


MOVE FROM PREVIOUS (KERNEL) I-SPACE TO USER MODE 


THIS TEST CHECKS aL Sha Nal PREVIOUS MODE IS KERNEL THE 
THERE IS A DESCRIPTION BEFORE EACH DESTINATION MODE TESTED, 


IF THE CORRECT MODE IS NOT ENABLED A NON-RESIDENT ABORT 
WILL OCCUR AND TRAP TO 21$, WHERE THE ERRORS ARE REPORTED. 


SRE REE REK EEE KEKE EKEEEEEKEKEKEKEEKEEEKKEKKKEEE 


:MAKE ALL_USER_I-SPACE PAGES RESIDENT 
;READ/WRITE, LENGTH 200 BLOCKS 
SET LOOP COUNTER TO 

LOAD oon uit OF _FIRST PDR IN R1 
sLOAD PDR WITH 7 

:LOOP NTI ak USER PDRS LOADED 
[SET LOOP ON ERROR TO 3$ 

G0 TO USER MODE FOR THIS TEST 
;KERNEL_ I-SPACE PAGE 4 READ/WRITE 
;MAP KERNEL I PAGE 4 TO 12k 
;MAP_USER I PAGE 4 } Mae 

LOAD DATA PATTERN INT 

LOAD DATA PATTERN INTO PH Y 60000 
OAD VIRTUAL ADDRESS INTO R2 


MOV a st 
: THE FOLLOWING WILL TEST DSTM=0 MFPI 


;THE FOLLOWING WILL TEST’ DSTM=1 MFPI. 
MOV #7$,SLPERR ;SET LOOP 


TSTEST 45 

5 ** 

*“* 

:* FETCH IS FROM KERNE 

** 

te 

;* 

3? 

32 

:* 

TST45: SCOPE 

1$: MOV #77406,RO 
MOV 10, 
MOV AUIPDRO,R1 

2$: MOV 0,¢ + 
SOB 2,2 
MOV #3$, $LPERR 

3$: MOV #140340, PSw 
MOV #77406, KIPDR4 
MOV #600, KIPAR4 
rey gauge 
MOV ar160000 
ov #218, MMVEC 
CLRB DR4 
MOV 1140340, PSW 

4$: MFP] KSP 
CMP #USESTK USP 
BEQ 5$ 
MOV (USP) +,RO 
MOV #KERSTK,R1 
CMP RO,R1 
BEQ 6$ 
ERROR 46 
BR 6$ 

5$: ERROR 50 

7$: MOV 166320, PSw 


MOV #36514.RO 
MOV #100006 ,R2 
MFP] (R2) 

MOV (USP) +,R1 


2 SET M.M. VECTOR TO 21$ 
E USER I-SPACE PAGE 4 NON-RESIDENT 
MAKE PREVIOUS MODE KERNEL PRESENT USER 
PU* KERNEL STACK POINTER ON USER STACK 
‘as SOMETHING PUSHED ON STACK AT 1$ 
BRANCH IF NOTHING WAS PUSHED 
POP _USER STACK INTO RO 
sEXPECTING 1100 AS KSP 
;DID YOU GET THE RIGHT POINTER? 
BRANCH IF YOU DID 
7 WR THING WAS PUSHED ON STACK 
FOR TIGHTER SCOPE LOOP 
:REPLACE ERROR CALL WITH 
:'BR 4$"' = 000766 


;BRANCH TO NEXT TRY 
sREPLACE, ERROR CALL WITH 
4$"* = 000764 


: ON ERROR POINTER TO 7$ 
MAKE PREVIOUS MODE KERNEL PRESENT USER 
LOAD DATA EXPECTED INTO RO 


;R AL 
;POP USER STACK INTO R1 


SEQ 0074 
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033076 
033100 
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033214 
033216 


033220 
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012737 
006 


033112 
140340 
100000 


033144 
140340 
00000 


033174 
140340 
00002 


033226 
140340 


00000 
001204 


MACY11 


001110 
177776 


001110 
177776 
001202 


30A(1052) 
145 


8$: 
9$: 


10$: 
118: 


12$: 
13$: 


14$: 


15$: 


16$: 


K 6 
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MOVE FROM PREVIOUS (KERNEL) I=SPACE TO USER MODE 

CMP RO,R1 WAS DATA FETCHED SAME AS STORED 
BEQ 8$ BRANCH IF ge DATA WAS FETCHED 
ERROR 46 WRONG DATA WAS FETCHED 


FOR TIGHTER SCOPE LOOP 
;REPLACE ERROR CALL WITH 
7$'' = 000764 


;THE FOLLOWING WILL TEST "DSM=2 MFPI. 
MOV #9$ .SLPERR ;SET LOOP ON ERROR POINTER TO 9$ 
MOV #140340,PSw ;MAKE PREVIOUS MODE KERNEL PRESENT USER 


MOV #100000 ,R2 LOAD VIRTUAL ADDRESS INTO R2 

MFPI (R2)+ sREAD FROM PHYSICAL 60000 

MOV (USP) +,R1 POP USER STACK INTO R1 

CMP RO,R1 [WAS DATA FETCHED SAME AS STOR 

BEQ 10$ BRANCH IF CORRECT DATA WAS FETCHED 
ERROR 46 WRONG DATA WAS FETCHED 


AA TIGHTER SCOPE LOOP 
sREPLACE ERROR CALL WITH 
9$"* = 000766 


:THE FOLLOWING WILL TEST’ pete MFP]. 
MOV #11$,$LPERR zSET LOOP ON ERROR POINTER TO 11$ 
MOV #160340,PSW [MAKE PREVIOUS MODE KERNEL PRESENT USER 
MFPI #100000 SREAD FROM PHYSICAL 60000 
MOV (USP) +,R1 ‘POP USER STACK INTO R1 


CMP RO,R1 WAS DATA_FETCHED SAME AS STORED 
BEQ 12$ BRANCH IF CORRECT DATA WAS FETCHED 
ERROR 46 WRONG DATA WAS FETCHED 

:FOR TIGHTER SCOPE LOOP 

: CE ERROR CALL WITH 

, 11$°' 767 


SET LOOP ON ERROR POINTER TO 13$ 
MOV #140820, PW sMAKE PREVIOUS MODE DERNEL _ USER 


MOV #100002 -R2 = LOAD pF aby 8 ADDRESS INTO 

MFPI ~(R2) ;READ FROM PHYSICAL 1 ha 

MOV (USP) +,R1 ;POP USER gTaRK INTO R 

CMP RO,R1 SWAS DATA FETCHED SAME AS STORED 
BEQ 14$ ;BRANCH IF etna Se DATA WAS FETCHED 
ERROR 46 WRONG DATA WAS FETCHED 


SFOR TIGHTER SCOPE LOOP 
SREPLACE, ERROR CALL WITH 
. ‘= 000766 


THE FOLLOWING WILL TEST’ DSTM=5 MFPI. 


MOV #15$, SLPERR :SET LOOP ON ERROR POINTER TO 15$ 

MOV #140340 ,PSwW sMAKE PREVIOUS MODE KERNEL PRESENT USER 

MOV #100000, $TMP2 ;LOAD TEST LOC. VIRT. ~ 99 pre LOC. $TMP2 
V #<$TMP2+2>,R2  ;LOAD ADDRESS OF $TMP2+2 INTO R2 

MFPI a-(R2) READ FROM PHYSICAL 60000.» 

MOV (USP) +,R1 POP USER STACK INTO R1 

CMP RO,R1 WAS DATA FETCHED SAME AS STORED 

BEQ 168 BRANCH IF CORRECT DATA FETCHED 

ERROR 46 WRONG DATA WAS FETCHED 


FOR TIGHTER SCOPE LOOP 
;REPLACE ERROR CALL WITH 
15$"" = 00076 
;THE FOLLOWING WILL TEST * DSTM=6 MFPI. 


SEQ 0075 
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033306 
033310 


033312 
033312 


033352 


033354 
033362 
033370 
033376 
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033266 
140340 


100000 


033320 
140340 


100000 
001202 
000000 


030340 


MACY11 30A(1052) 
145 


001110 
177776 
001202 


177776 


nok eon B 08:00 
E FROM PREVIOUS (KERNEL) I-SPACE TO USER MODE 


#17$,$LPERR 
#140340,PSW 


Re 
100000 (R2) 
My he +,R1 


186 


6 
+ pace 1-62 


SET LOOP ON ERROR POINTER TO 17$. 

;MAKE PREVIOUS MODE + ae PRESENT USER 
7MAKE Shon pie 2 A ZER 

;READ FROM PHYSICAL 600 

:POP USER STACK INTO R1 

[WAS DATA FETCHED SAME AS STORED 
BRANCH IF sons EeTereD FETCHED 


REPLACE, ERROR CALL WITH 
17$°* = 000766 


;THE FOLLOWING WILL TEST ' DSTM=? MFPI. 


MOV 
RTI 


2 *TEST 46 


#19$,$LPERR 
#140340,PSw 


#100000, $TMP2 
#$T. 


o 


a@0(R2) 

(USP) +,R1 
0,R1 

208 

46 


AMGMERR ,MMVEC 
#00340 ,PSW 
#1$,$LPERR 
TST46 


(KSP) +, TRAPPC 
(KSP) +, TRAPPS 
SRO, WASSRO 
SR2.WASSR2 
#160000, SRO 


TRAPPS , ~(KSP) 
TRAPPC , ~(KSP) 


SET LOOP ON ERROR POINTER TO 19% 
;MAKE PREVIOUS MODE KERNEL PRESENT USER 
LOAD TEST LOC. VIRT. ADDR. ee O $TMP2 
ADDRESS OF $TMP2 INTO R 
PHYSICAL 60000 


ees ERROR CALL WITH 

7SET M.M. VECTOR TO NORMAL ROUTINE 

7GO BACK TO KERNEL MODE, PREVIOUS KERNEL 
7SET LOOP POINTER TO START OF TEST 

: BRANCH TO NEXT TEXT 

SAVE PC & PS OF TRAP 


2 SAVE SRO FOR ERROR TYPEOUT 


iF 

:REPLACE ERROR CALL WITH 

tA‘ = 00024 

PUT PC ® PS OF TRAP ON STACK 
RETURN TO TEST 


J TARR EERE 


MOVE FROM/TO D-SPACE 


= MOVE FROM/TO I-SPACE 


THIS TEST CHECKS THAT SINCE THERE IS NO DISTINCTION 


BETWEEN INSTRUCTION 
MFPD & 


MFPD 


AND DA 


TA SPACE IN THE FONZ-11 


MTPD SHOULD BE DECODED THE SAME AS MFPI & MIPI. 


4030340 ,PSW 
USP 


mere PREVIOUS MODE=USER , CURRENT=KERNEL 
MFPD SHOULD ACT LIKE MFP] PUTTING 
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-63 
E FROM/TO D-SPACE = MOVE FROM/TO I=SPACE 


USER STACK POINTER ON THE KERNEL STACK 
001100 MP ee [WAS SOMETHING PUSHED ON KERNEL STACK? 


. 
. 


000700 


033514 
007777 


(KSP)+,RO 
a 


’ 


53 


3$ 
54 


#4$,$LPERR 
w7777, -(KSP) 


USP 
(KSP)+,R1 
#7777 ,R1 
5$ 


54 


H NO 
:POP_ KERNEL STACK INTO Pos 
EXPECTING TO GET 700 AS U 
;DID GET RIGHT POINTER VALUE? 
BRANCH IF YES 
WRONG THING WAS PUSHED ON STACK 
FOR TIGHTER ScOPE LOOP 


L 
:REPLACE ERROR CALL WITH 
;'BR 1$'' = 000763 


EREPLACE ERROR CALL WITH 

;'BR 1$"' = 000761 

3SET LOOP ON ERROR POINTER TO 4$ 
L STACK 

LOAD SER 

SREAD USER STACK POINT 

;POP KERNEL STACK INTO R1 

;WAS ae — POINTER CHANGED? 


USER STACK POINTER NOT CHANGED 


;FOR TIGHTER SCOPE LOOP 
;REPLACE ERROR CALL WITH 
;'BR 4$°* = 000767 
+ meade 3GET READY TO RESTORE USER STK. PTR. 


012746 000700 5$: 
106606 U ;RESTORE USER STACK POINTER 
033544 012737 033450 001110 MOV #1$,$LPERR 7SET LOOP POINTER TO START OF TEST 


J LARK EEEEREREEKEAEEKEERKEREREREKKEEREKEEREKREKKEEEKEEREKEKK 


2 *TEST 47 MOVE FROM PREVIOUS I=SPACE (PREVIOUS=CURRENT=KERNEL ) 


THIS TEST CHECKS THAT IF BOTH PREVIOUS AND CURRENT MODES 
ARE KERNEL, AND THE SOURCE MODE IS 0, THE DESTINATION 
STACK IS NOT DECREMENTED BEFORE ACCESS. 

‘MFP! HOULD PUSH THE NON-DECREMENTED VALUE 

OF KSP (1100) ONTO THE STACK (AT LOC. 1076). 


TTT TT TTL ET TLT LETTE TTT ELLE TTT EEE TLE TTT ETT EET 


000004 

033554 177776 a4PSW ;SET PREVIOUS = CURRENT = KERNEL 

033560 001100 ASTACK ,RO ;SETUP_V VALUE _ FOR STACK POINTER 

033564 010006 RO,KSP sLOAD STACK POINTER 

033566 KSP THE VALUE ‘‘STACK’' SHOULD BE PUSHED 
BEFORE BEING DECREMENTED 

033570 (KSP) ,R1 READ DATA WHICH WAS PUSHED 

033572 020001 RO.R1 WAS THE ORIGINAL VALUE OF THE 
STACK POINTER PUSHED? 

033574 E 2$ 


BRANCH IF YES 
033576 46 ;MFPI FETCHED WRONG DATA 
:FOR TIGHTER SCOPE LOOP 
: REPLACE ERROR CALL WITH 
1$"* = 000766 


SETUP EXPECTED STACK POINTER VALUE 
[WAS THE STACK POINTER DECREMENTED? 


033552 


“4 
* 
N 


Aw: £+e teen 


mh Be Be Be Be Be Be 


033600 : -(RO) 
033602 020600 KSP ,RO 
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033604 001401 BEQ 3$ ;BRANCH 


IF YES 

033606 104050 ERROR 50 Hf pa NOT PUSHED BY THE MFPI 
;FOR TIGHTER SCOPE LOOP 
:REPLACE, E ERROR CALL WITH 


033610 012706 001100 : MOV STACK ,KSP [RESTORE STACK POINTER 
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000 
033700 


033662 


047105 
051523 


001234 


033714 
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001234 


020104 
021440 


ND OF PASS ROUTINE 
-SBTTL END OF PASS ROUTINE 


SARA REERERREEREEREREKREEERAERERERERRERERERERRERKEKEREEERR ER 


: SINCREMENT THE PASS — ($PASS) 


TOTAL NUMBER OF ERRORS. SINCE LAST REPORT YYyy"' 
;*WHERE XXXX AND YYYY ARE eet IMAL NUMBERS 

:*IF SW12=1 INHIBIT TRACE T 

:*IF THERES A MONITOR GO TO IT 

:*IF THERE ISN'T JUMP TO LOOP 


SEOP: 
SCOPE 
CLR STSTNM 33ZERO ne TEST NUMBER 
CLR STIMES :-ZERO THE NUMBER OF ITERATIONS 
INC SPASS : INCREMENT THE PASS NUMBER 
BIC #100000,$PASS ;;DON'T ALLOW A NEG. NUMBER 
DEC (PC) + ; sLOOP? 
SEOPCT: .WORD 
BGT SDOAGN ssYes 
MOV (PC)+,a(PC)+ 7sRESTORE COUNTER 
SENDCT: .WORD 1 
SEOPCT 
TYPE ,05$ fh bang ASCIZ STRING 
6 GET OVER THE ASCIZ 


BR 4$ 
65$: “ASCIZ <12><15>/END PASS #/ 


~EVEN 
64$: 


MOV $SPASS ,- (SP) 7SAVE $PASS FOR TYPEOUT 

7.TYPE PASS NUMBER 
TYPDS :2G0 Nya ra eT ae ASCIZ WITH SIGN 
TYPE -67$ 22 TYPE ASCII STRING 


BR 6 :.GET OVER THE ASCIZ 
67$: ASCIZ / TOTAL ERRORS SINCE LAST START AT 200 / 


i 
MOV = SERTTL,~(SP) —; SAVE SERTTL FOR TYPEOUT 
AL NUMBER OF ERRORS 
TYPDS £260 TYPE=-DECIMAL ASCII WITH SIGN 
TYPE —_, SCRLF ZI TYPE CARRIAGE RETURN, LINE FEED 
$GET42: MOV — @#42,RO ::GET MONITOR ADDRESS 
BEQ  DOAGIN ;:BRANCH IF NO MONITOR 
CLR =(SP) i FINSURE THE OT BIT 1S CLEAR 
MOV ASCLR.T,-(SP) SETUP FOR AN RIT_OR R 
BR $RTRN 2:60 RTI OR RTT TO LOAD THE PSw 
SIUITH A CLEARED “1 BIT 
$CLR.T: RESET CLEAR THE WORLD 


SENDAD: JSR PC, (RO) ::GO TO MONITOR 





SEQ 0079 


wm: 
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CJKDAC.P11 12=MAR=80 67: 56 END OF PASS ROUTINE SEQ 0080 
2868 034022 000249 NOP ::SAVE ROOM 
2869 034024 000240 NOP +: FOR 
2870 034026 000240 NOP *ACT11 
2872 034030 013737 000004 001176 DOAGIN: MOV ays ,aaSTMPO ySAVE CONTENTS OF LOCATION, .. 
2873 034036 012737 034054 000004 MOV #1$, aK ‘SET UP VECTOR IN CASE OF 
2874 034044 012737 000001 164000 MOV #1,04164000 ‘NOTIFY MULTI-TESTER OF PASS COMPLETE 
2875 034052 000402 BR 23° :IF NO TRAP DON'T TOUCH STACK 
2876 034054 062706 000004 1$: ADD ry ‘RESET STACK IN CASE OF TRAP 
2877 034060 013737 001176 000004 2$: MOV oaSiMPO ans SRESTORE CONTENTS OF LOACTION 4 
2878 034066 SDOAGN: 
2879 034066 104400 TRAP :zPUSH OLD PSH, AND PC ON STACK 
2880 034070 042716 000020 BIC #20, (SP) i: CLEAR THE ''T'' BIT 
2881 034074 032777 010000 145036 BIT #B1T12,aSWR RUN WITH TRACE TRAP? 
2882 034102 001005 BNE 1$ : F NO 
2883 034104 005137 034130 COM $TBIT HIS IT TIME FOR TRACE TRAP 
2884 034110 1 BMI 1$ :BR IF NO 
2885 034112 052716 000020 BIS #20, (SP) ‘SET TRACE TRAP 
2886 034116 012746 034124 1$: MOV #$LOOP,-(SP) :; JUMP TO START OF TEST 
2887 034122 000002 SRTRN: RTI 3 cRETYANE TH IS IS CHANGED TO 
2888 "RIT IF ‘RIT’ IS A LEGAL 
2889 ae SONSTRUCTION 
2890 034124 SLOOP: 
2891 034124 000137 JMP a(PC)+ : : RETURN 
2892 034126 020464 SRTNAD: .WORD RESTRT 
2893 034130 000000 $TBIT: .WORD 0 ::'T'' BIT STATE INDICATOR 
2894 034132 377 377 000 $ENULL: .BYTE <-1,-1,0 SZNULL CHARACTER STRING 
2895 034136 .EVEN 
28% .SBTTL SCOPE HANDLER ROUTINE 
(2) SAAR KEREREEREREEKEEKEKEEREEEEEEREEEEEEEEREEEEKEKK 
(1) *STHIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
(1) ; *AND LOAD TH HE TEST NUMBER(STSTNM) INTO THF DISPLAY REG. (DISPLAY<7:0>) 
(1) ;*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 
(1) :*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
(1) + *SW14=1 LOOP ON TEST 
(1) + *SW11=1 INHIBIT ITERATIONS 
(1) = *SWO9=1 LOOP ON ERROR 
(1) + *SWO8=1 LOOP ON TEST IN SWR<7:0> 
(1) **CALL 
(1) * SCOPE 7: SCOPE=10T 
(1) 034136 SSCOPE 
(1) 034136 104410 CKSWR ::TEST FOR CHANGE IN SOFT-SwWR 
(1) 034140 032777 040000 144772 1$: BIT #B1T14,aSWR LOOP ON PRESENT TEST? 
(1) 034146 001114 BNE SOVER “YES IF SW14=1 
(1) :MAHHHSTART OF CODE FOR THE XOR ‘ett TERAHAAA 
(1) 034150 000416 $XTSTR: BR 6$ 7 1F RUNNING ON THE a ae TESTER CHANGE 
(1) tI THIS INSTRUCTION TO A ‘NOP’’ (NOP=240) 
(1) 034152 013746 000004 MOV @#ERRVEC ,-(SP) : 3 SAVE THE CONTENTS OF Ae ERROR VECTOR 
(1) 034156 012737 034176 000004 MOV #5$,QWERRVEC =; SET _FOR TIMEOUT 
(1) 034164 005737 177060 TST a#177060 [TIME OUT ON XOR? 
(1) 034170 012637 000004 MOV (SP) +, AMERRVEC ; :RESTORE THE ERROR VECTOR 
(1) 034174 000463 BR $SVLAD :GO TO THE NEXT TEST 
(1) 034176 022626 5$: CMP (SP)+, (SP) + ':CLEAR THE STACK AFTER A TIME OUT 
(1) 034200 012637 000004 MOV (SP)+,QWERRVEC ::RESTORE THE ERROR VECTOR 





dD 7 
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CJKDAC.P11 12-MAR-80 07: 56 E HANDLER ROUTINE SEQ 0081 

(1) 034204 000423 BR 7$ LOOP ON THE PRESENT TEST 

(1) 034206 6$: ;#A#HAEND OF CODE FOR THE xOR’ tESTERAMMHE 

(1) 034206 032777 000400 144724 BIT #B1T08 ,aSWR ;sLOOP ON SPEC. TEST? 

(1) 034214 001404 BEQ :BR IF NO 

(1) 034216 127737 144716 001102 CMPB @SWR,$TSTNM 3I0N THE es TEST? SWR<7:0> 

(1) 034224 001465 BEQ SOVER ;-BR IF YES 

(1) 034226 105737 001103 es: TSTB SERFLG 7 HAS AN ERROR OCCURRED? 

(1) 034232 001421 BEQ 3$ ;2BR IF_NO 

(1) 034234 123737 001115 001103 CMPB SERMAX,SERFLG  ;;MAX. ERRORS FOR THIS TEST OCCURRED? 
(1) 034242 101015 BHI 3$ ;7BR_IF NO 

(1) 034244 032777 001000 144666 BIT #B1T09,aSWR ;LOOP ON ERROR? 

(1) 034252 001404 BEQ 43 ee F_ NO 

(1) 034254 013737 001110 001106 7$: MOV SLPERR,SLPADR ;;SET LOOP ADDRESS TO LAST SCOPE 

(1) 262 000446 BR SOVER 

(1) 034264 105037 001103 4$: CLRB SERFLG 32ZERO - ERROR FLAG 

(1) 034270 005037 001212 CLR STIMES :-CLEAR THE NUMBER OF Es i caatae TO MAKE 
(1) 034274 000415 BR 1$ ;sESCAPE TO THE NEXT TEST 

(1) 034276 032777 004000 144634 3$: BIT #B1T11,aSWR ff aes ad ITERATIONS? 

(1) 034304 001011 BNE 1$ YES 

(1) 034306 005737 001234 TST $PASS ieIF FIRST PASS OF PROGRAM 

(1) 034312 001406 BEQ 1$ INH'3iT ITERATIONS 

(1) 034314 005237 001104 INC SICNT i INCREMEN ITERATION COUNT 

(1) 034320 023737 001212 001104 CMP STIMES ,SICNT 2 sCHECK | NUMBER OF ITERATIONS MADE 
(1) 034326 002024 BGE SOVER 7BR IF MORE ITERATION REQUIRED 

(1) 034330 012737 000001 001104 1$: MOV #1,$I1CNT : ERE INITIALIZE THE ITERATION COUNTER 
(1) 034336 013737 034414 001212 MOV SMXCNT ,STIMES :SET NUMBER OF ITERATIONS TO DO 

(1) 034344 105237 001102 $SVLAD: INCB STSTNM 2 COUNT TEST NUMBERS 

(1) 034350 113737 001102 001232 MOVB STSTNM,STESTN SET TEST NUMBER IN APT MAILBOX 

(1) 034356 011637 001106 MOV (SP) , SLPADR 77SAVE SCOPE wo ADDRESS 

(1) 362 011637 001110 MOV (SP) ,SLPERR :-SAVE ERROR L ADDRESS 

(1) 366 005037 001214 CLR SESCAPE 73 CLEAR THE ESCAPE FROM ERROR Hato 
(1) 034372 112737 000001 007115 MOVB #1, SERMAX ONLY ALLOW ONE(1) ERROR ON NEXT TEST 
(1) 400 013777 001102 144534 $OVER: MOV STSTNM, ue i DISPLAY TEST NUMBER 

(1) 034406 013716 001106 MOV SLPADR , (SP) FUDGE RETURN ADDRESS 

(1) 034412 000002 RTI ZIFIXES PS 

(1) 034414 000200 SMXCNT: 200 3 =MAX. NUMBER OF ITERATIONS 
ri t4 -SBTTL ERROR HANDLER ROUTINE 

(2) J ERA EEEREEREEREEKEEKERREEREEREEEEEEREREEEEEEERERK EER 
(1) TRTHIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 

(1) ; *SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 

(1) :*AND GO TO ERRTYP ON ERROR 

ote :sTHE SWITCH wr PROVIDED BY THIS ROUTINE ARE: 

(1) *SW13=1 INHIBIT ERROR TYPEOUTS 

(1) >*SW10=1 BELL ON ERROR 

(1) > *SWO9=1 LOOP ON ERROR 

(1) 7 *CALL 

v4 :* ERROR WN ;;ERROR=EMT AND N=ERROR ITEM NUMBER 

(1) 034416 SERROR 

(1) 034416 104410 CKSWR TEST FOR CHANGE IN SOF T~SWR 

(3) 034420 010037 001162 MOV RO, $REGO SAVE THE CONTENTS OF RO 

(3) 034424 010137 001164 MOV R1,$REG1 SAVE THE CONTENTS OF R1 

(3) 0344 010237 001166 MOV R2,$REG2 :SAVE THE CONTENTS OF R2 

(3) 034434 010337 001170 MOV R3,$REG3 ;SAVE THE CONTENTS OF R3 
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RROR HANDLER ROUTINE 


R4, $REG4 

R5 ,$REGS 
$STSTNM, TESTNO 
_ 
STSTNM,@DISPLAY ; 
+f T10,a@SWR 
goose 

SERT 

5S FSERRPC 


SSERRPC. SITEMB 
#B1T13,aSWR 


20 
PC,ERRTYP 
-SCRLF 


~ eatin 
$ITEMB,21$ 
SATY4 


ry TO9,aSWR 
SLPERR , (SP) 
SESCAPE 

5$ 

SESCAPE , (SP) 
MSENDAD , 0442 
6$ 


sSAVE THE CONTENTS OF R4 
;SAVE THE CONTENTS OF R5 
SSAVE THE TEST Y's 
::SeT THE ERROR FLAG 
ON'T LET Hd FLAG GO TO ZERO 
;DISPLAY TEST NUMBER AND ERROR FLAG 
; #BELL ON ERROR? 


NO = SKIP 
iE RING welt 
THE NUMBER OF ERRORS 
3IGET ADDRESS OF ERROR INSTRUCT iON 


:-STRIP_AND SAVE THE ERROR ITEM CODE 
:zSKIP TYPEOUT IF SET 
33SKIP_TYPEOUTS 

::GO TO USER ERROR ROUTINE 


: JRUNNING IN APT MODE 

72NO,SKIP APT ERROR REPORT 

[SET ITEM NUMBER AS ERROR NUMBER 
: EREPORT FATAL ERROR TO APT 


2 APT or LOOP 
HALT ON ERROR 
:?SKIP Z CONT INUE 
ON ERROR! 
TEST FOR CHANGE IN SOF T-SWR 
eel LOOP — SWITCH SET? 


: FUDGE RETURN FOR LOOPING 
cee FOR AN ESCAPE ADDRESS 


NONE 
: FUDGE RETURN ADDRESS FOR ESCAPE 
2sACT=11 7 fe “ACCEPT? 
; BRANCH F NO 


RTI 3 gRETURN 
-SBTTL ERROR MESSAGE TYPEOUT ROUTINE 


FREER EERE AREER EERE ERERREREREKEEEKEEEREEEEEEREEEEKKKEE 


SRTHIS ROUTINE USES THE ‘ITEM CONTROL BYTE’’ ($ITEMB) A. DETERMINE WHICH 


: *ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE 


RROR TABLE*’ ($ERRTB), 


7*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 


a 
 *NOTES: 


ws, ee Ne tee oi AUTOMATIC *'CARRIAGE RETURN-LINE FEED** 
TWO SPACES ARE TYPED AFTER EACH NUMBER FOR 'DT'' 

FOR $ITEMB=0, JUST THE ERROR PC IS TYPED 

AVAILABLE FORMATS FOR TYPING DATA ARE: 


ORMA 
TYPE A 6 DIGIT sCTAL NUMBER (FROM 16-BIT BINARY) 


0 


SEQ 0082 
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001223 


001114 


001116 
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ERROR MESSAGE TYPEOUT ROUTINE 


:* TYPE A DECIMAL NUMBER WITHOUT LEADING ZEROS 
77 TYPE A 16 DIGIT BINARY NUMBER 
:* TYPE A 6 DIGIT OCTAL NUMBER (FROM 18-BIT BINARY) 


ERRTYP: 
TYPE 3"'CARRIAGE RETURN'' & ‘LINE FEED"’ 


7 SAV 
;PICKUP THE ITEM INDEX 


71F_ ITEM NUMBER IS ZERO, JUST 
STYPE THE PC OF THE ERROR 

SERRPC ,~-(SP) 7;SAVE SERRPC FOR TYPEOUT 

; ERROR ADDRESS 

+360 ‘=< ASCII(ALL DIGITS) 


13$ 
RO ‘ADJUST THE INDEX SO THAT IT WILL 
ae : WORK FOR THE ERROR TABLE 


RO 
#SERRTB RO ace TABLE POINTER 
(RO) +,2$ UP "ERROR MESSAGE"' POINTER 
SKIP T TYPEOUT IF NO POINTER 
PE T RROR SA 


, $CRLF 

~ late 
a4$1TEMB,RO 
1$ 


MES 
23: -WORD 0 :’ ERROR MES POINTER GOES HERE 
. SCRLF 3’ ‘CARRIAGE RETURN'' & ‘LINE FEED"’ 
3$: > ale :PICKUP ‘DATA aol POINTER 


SKIP TYPEOUT IF 
:TYPE THE ‘DATA HEADER'’ 
4$: .WORD 0 ;'DATA ATA HEADER’ POINTER GOES HERE 
.SCRLF S''CARRIAGE RETURN’' & "LINE FEED" 
S$: R1,-(SP) ‘SAVE R1 
(RO)+,R1 ‘PICKUP ‘DATA TABLE’’ POINTER 
12$ :BR IF NO DATA TO BE TYPED 
MOV (RO) +,RO [PICKUP ‘DATA FORMAT’’ POINTER 
6S: (RO) ‘1S IT FORMAT 0? 
BN 7$ ‘BR IF NO 
:*THIS CODE IS FOR OCTAL (16-BIT) FORMAT (DF=0) 
MOV a(R1)+,-(SP) ;;SAVE a(R1)+ FOR TYPEOUT 
ne ':GO TYPE=-OCTAL ASCII(ALL DIGITS) 


-*THIS CODE IS FOR DECIMAL FORMAT (DF=1) 
7$: CMB (RO) #1 z1S IT FORMAT 1? 


E BRANCH IF NO 
MOV a(R1)+,-(SP) £2 SAVE a(R1)+ FOR TYPEOU 
TYPDS :GO TYPE=-DECIMAL ASCII "With SIGN 
BR 11$ 
:*THIS CODE IS FOR BINARY FORMAT (DF=2) 
8s: CMPB (RO) ,#2 31S IT FORMAT 2? 
:BRANCH IF NO 


BNE CH 
MOV a(R1)+,-(SP) 7;SAVE a(R1)+ FOR TYPEOUT 
-_e 18 32GO TYPE--BINARY ASCII 
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035024 012146 
0 004737 


035074 020040 
035100 


040270 
000005 
035044 


035074 


001223 
000 


MACY11 "tek fae 


$$: 


12=MAR-80 
ERROR MESSAGE TYPEOUT ROUTINE 


#5, (SP) 


(SP)+,10$ 


0 


(R1) 
12$ 
,14$ 
(RO) + 
6$ 


(SP)+,R1 
(SP) +,RO 
gacRL 


TS 
-ASCIZ “y / 


-EVEN 


7 
08:00 SpaGe 1-70 


;*THIS we? IS Tate FORMAT (DF=3) 
PC,$DB20 


PUT ADDRESS OF FIRST LOC. ON STACK 
CONVERT TWO LOCS. TO AN wat 43 STRING 
SONLY NEED 6 CHARACTERS T 11 

;PUT ADDRESS OF ASCII CHARS. AT 10$ 
:TYPE OCTAL VALUE OF 18-BIT BINARY NO. 


:1IS os ANOTHER NUMBER? 


:BR_IF_NO 
s TYPE TWO(2) SPACES 
:POINT TO NEW 'DATA FORMAT’ 


RESTORE R1 
sRESTORE RO 
et RETURN'' & "LINE FEED" 


STWO(2) SPACES 
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2987 

2988 

2989 

2990 

2991 

2992 

2993 

299% 

2995 

2996 

2997 

2998 035100 
2999 035106 
3000 035110 
3001 035114 
3002 

3003 035120 
3004 035124 
3005 035130 
3006 035132 
3007 

3008 

3009 

3010 

3011 

3012 

3013 

3014 

3015 

3016 035134 
3017 035142 
3018 035144 
3019 035150 
3020 035156 
3021 035162 
3022 035164 
3023 

3024 

3025 

3026 

3027 

3028 

3029 

3030 

3031 

3032 

3033 

3034 

3035 0351 
3036 035172 
3037 035176 
3038 035202 
3039 035204 
3040 035210 
3041 035214 
3042 035220 


033727 


011637 


042716 
012746 


000006 
000207 


033727 
0 


Soessesce2 
N 
NM 
So 
Ww 


177776 
177776 
001276 


000020 
035132 


001276 


001276 
000340 
035164 
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000020 


000020 


001276 


xeexee = SUBROUTINES USED BY THIS PROGRAM = *xxe® 
~SBTTL ***** SUBROUTINES USED BY THIS PROGRAM = «xxx 
. SBTTL TURN OFF T=-BIT AND SAVE CURRENT PSW 


PARRA REE EERA RARER EEE RRR 


i 
7? THIS SUBROUTINE IS USED TO TURN OFF THE TRACE TRAP BIT IN THE “ae 
;* IF IT IS ON. THE PROCESSOR STATUS IS SAVED IN ‘'TBITPS'* SO THA 
:* THE PSW CAN BE RESTORED TO ITS PREVIOUS CONDITION WHEN CONDITIONS 
z* WARRANT T-BIT TRAPPING. 
3? 
PPT IITI TIT ITITTTTTI Titi ttt titi itit titi titi tititittt Ti titi ttt tite 
TOFF: BIT PSW,ATBIT 71S THE T-BIT SET IN THE PSW? 

BEQ 1$ ZEXIT IF NO 

MOV PSW,-(SP) :PUSH PRESENT PSW ON THE STACK 

MOV (SP) , TBITPS :ALSO SAVE IT_IN ‘‘TBITPS'' FOR 

RESTORING LATER 

BIC ATBIT, (SP) [CLEAR THE T-BIT (BIT 4) IN THE PSW 

MOV #1$,-(SP) ;PUSH PC OF ‘RTS*’ ON STACK 

RTT ;" RETURN’ TO 1$ WITH T-BIT OFF 
1$: RTS PC ;RETURN TO PROGRAM 


. SBTTL TURN ON T-BIT AND RESTORE PREVIOUS PSW 


SEEKER EERE EKER EERE ERA KKEREEEKEREKEEEKEREEEKEEKERKEEEEKEKERKKKKKK 


44 
;* THIS SUBROUTINE IS USED TO RESTORE THE PROCESSOR STATUS TO ITS 
;* PREVIOUS CONDITION BY RESTORING THE ‘'T-BIT PSw’’ SAVED BY THE 
;* "TOF F’' SUBROUTINE IN THE ‘‘TBITPS'' LOCATION. 

-* 


ett 2 adage gg in aan ae fg gr eget cab apiop 


i 


BIT TBITPS ,ATBIT :WAS_T-BIT ON IN THE PREVIOUS PSW? 


BEQ 1$ EXIT IF NO 

MOV TBITPS,~(SP) [PUSH PREV IOUS PSW ON THE STACK 

MOV oats TBITPS sRESET Ly 3 ""TBITPS’* LOCATION 

MOV #1$,-(SP) :PUSH PC OF ‘RTS’ ON STACK 

RTT 3 RETURN" TO 1$ WITH T-BIT RESTORED 
1$: RTS PC ;RETURN TO PROGRAM 


-SBTTL SET ALL WRITEABLE BITS IN ALL PAR/PDR'S 


LAER EERE 


:* THIS SUBROUTINE IS USED BY THE PAR/PDR DUAL ADDRESSING TEST 

* TO SET ALL WRITEABLE BITS IN ALL KERNEL AND USE P 

:* PDR'S TOA iF uate ‘INITIAL STATE’’ OF HAVING ALL BITS=1 IS 

* USED TO SEE THAT ONLY ONE REGISTER IS CLEARED IN RESPONSE TO 

* A SINGLE PAR OR PDR ADDRESS. 

** 

PITTI T ITIL ITI TITTLT LTTE LE LEE ELLE ELLE 

SETREG: MOV #10,R2 : LOAD LOOP COUNTER WITH AN 8 
MOV #KIPDRO,R1 OAD ADDRESS OF FIRST POR INTO R1 

1$: MOV #-1,(R15+ Set BITS IN KERNEL PDR TO 1 
SOB R2,1$ ‘LOOP TO 1$ UNTIL ALL KERNEL PDR'S LOADED 
MOV #10,R2 [LOAD LOOP COUNTER WITH AN 8 
MOV #KIPARO,R1 [LOAD ADDRESS OF FIRST par INTO R1 

2$: MOV #-1,(R15+ SSET BITS IN A KERNEL PAR TO 1 
SOB R2,2$ ‘LOOP TO 2$ UNTIL ALL KERNEL PAR'S LOADED 


SEQ 0085 
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012702 


012701 


000010 
177600 
177777 
000010 
177640 
177777 


172300 
000010 
077416 


000002 
172340 
000010 
177777 


000002 
177600 
000010 
077416 
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SET ALL WRITEABLE BITS IN ALL PAR/PDR'S 


MOV #10,R2 ;LOAD LOOP COUNTER WITH AN 8 
MOV MUIPDRO,R1 [LOAD ADDRESS OF FIRST PDR INTO R1 
3$: MOV #=-1,(R15+ SET BITS IN A USER TO 
SOB R2,3$ ;LOOP T 0 3$ UNTIL ALL USER PDR'S LOADED 
MO. #10,R2 LOAD LOOP COUNTER WITH AN 8 
MOV MUIPARO,R1 ; LOAD ADDRESS OF FIRST Mean INTO R1 
4$: MOV #-1, (R13+ SET BITS IN A USER TO 1 
SOB 2.48 “LOOP TO 4$ UNTIL ALL MOSER PAR'S LOADED 
RTS PC ‘RETURN TO TEST 
.SBTTL READ & COMPARE KERNEL & USER PAR/PDR'S 
CLR RAE REE EEKEEKRERKK EK 
** 
te THIS SUBROUTINE IS USED BY PAR/PDR DUAL ADDRESSING TEST TO 
* READ ALL THE PAR'S AND PDR'S TO SEE THAT ONLY ONE REGISTER 
* WAS CLEARED IN RESPONSE TO A SINGLE PAR OR PDR ADDRESS. 
* ANY FAILURES FOUND BY THE PAR/PDR DUAL ADDRESSING TEST WILL 
:* BE REPORTED BY THIS SUBROUTINE. 
** 
DIBA OASIS SISO SOUIIUIUIOISISIIISII IE IOI ITO IE 
CMPREG: 
MOV #KIPDRO,R1 ZLOAD ADDRESS OF FIRST KERNEL PDR IN R1 
MOV #10,R4 [LGAD LOOP COUNTER WITH AN 8 
MOV #77416,R5 [PUT EXPECTED PDR CONTENTS IN RS 
1$: CMP (R1),R5 TARE ALL WRITEABLE BITS SET AS EXPECTED? 
BEQ 2$ [BRANCH IF YES 
CMP R1,RO [WAS IT THE REG. THAT WAS CLEARED? 
BEQ $ [BRANCH IF YES 
MOV (R1),R2 :SAVE CONTENTS OF IMPROPERLY CLEARED REGISTER 
ERROR 16 TA PDR WAS EFFECTED BY CLEARING A DIFFERENT PAR/PDR 
‘FOR TIGHTER SCOPE LOOP 
REPLACE ERROR CALL WITH 
TAN ‘RTS PC'’ = 000207 
2$: ADD #2,R1 [FORM NEXT ADDRESS 
SOB R4,1$ [LOOP TO 1$ UNTIL ALL KERNEL PDR'S CHECKED 
MOV #KIPARO,R1 ;LOAD ADDRESS OF FIRST KERNEL PAR IN Ri 
MOV #10,R4 LOOP COUNTER WITH AN 8 
MOV #177777, R5 “PUT EXPECTED PAR CONTENTS IN RS 
3$: CMP (R1) RS ZARE ALL WRI TEABLE BITS SET AS EXPECTED? 
CMP R1,RO [WAS IT THE REG. THAT WAS CLEARED? 
BEQ 4 [BRANCH IF YES 
MOV (R1) ,R2 : SAVE CONTENTS OF IMPROPERLY CLEARED REGISTER 
ERROR 16 PAR WAS EFFECTED BY CLEARING A DIFFENENT PAR/PDR 
FOR TIGHTER SCOPE LOOP 
;REPLACE ERROR CALL WITH 
[AN "RTS PC’ = 000207 
4$: ADD #2.R1 [FORM NEXT ADDRESS 
SOB R4,3$ SLOOP TO 3$ UNTIL ALL KERNEL PAR'S CHECKED 
MOV M#UIPDRO,R1 ;LOAD ADDRESS OF FIRST USER PDR IN R1 
MOV #10, LOOP COUNTER WITH 
MOV #77616,R5 “BUT EXPECTED PDR CONTENTS IN RS 
S$: CMP (R1),R5 TARE ALL WRITEABLE BITS SET AS EXPECTED? 
BEQ 6$ ‘BRANCH IF YES 
CMP R1,RO sWAS IT THE REG. THAT WAS CLEARED? 
SEQ 6$ ‘BRANCH IF YES 


SEQ 0086 
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D & COMPARE KERNEL & USER PAR/PDR'S 


1~73 
SEQ 0087 


MOV (R1) ,R2 sSAVE CONTENTS OF IMPROPERLY CLEARED REGISTER 
ERROR 16 tA PDR WAS EFFECTED BY CLEARING A DIFFERENT PAR/PDR 
‘FOR TIGHTER SCOPE LOOP 
;REPLACE ERROR CALL WITH 
FRTS PC’ = 000207 
6$: ADD #2,R1 FORM NEXT ADDRESS 
SOB R4,5$ [LOOP TO 5$ UNTIL ALL USER PDR'S CHECKED 
MOV HUIPARO,R1 ; LOAD ADDRESS OF FIRST USER PAR IN 
MOV #1 “LOAD LOOP COUNTER WITH AN 8 
MOV #177777,RS ‘PUT EXPECTED PAR CONTENTS IN RS 
7$: CMP (R1),R5 TARE ALL WRITEABLE BITS SET AS EXPECTED? 
BEQ 8$ [BRANCH IF YES 
CoP R1,RO ;WAS WAS 17 THE RES. THAT WAS CLEARED? 
MOV (R1) ,R2 :SAVE CONTENTS OF IMPROPERLY CLEARED REGISTER 
ERROR 16 PAR WAS EFFECTED BY CLEARING A DIFFERENT PAR/PDR 
FOR TIGHTER SCOPE LOOP 
REPLACE ERROR CALL WITH 
= 000207 
8$: ADD #2,R1 <FORM NEXT ADDRESS 
SOB R4,7$ [LOOP TO 7$ UNTIL ALL USER PAR'S CHECKED 
RTS PC ‘RETURN TO TEST 


-SBTTL CONVERT VIRTUAL ADDRESS 


FERRER EERE EERE EREKEKKEERREERKEEKEEEKKEEEREKEEREEKKEKEEREKE 


TO PHYSICAL ADDRESS 


** 
* THIS SUBROUTINE IS USED TO FORM AN 18-B1T PHYSICAL ADDRESS 
:* (PBA) FROM THE 16-B81T VIRTUAL ADDRESS (VBA) AND THE APPROPRIATE 
* PAGE ADDRESS REGISTER (PAR). THE SAME METHOD USED BY THE MEMORY 
* MANAGEMENT LOGIC Cis. SED. VBA <15:13> SELECTS WHICH PAR/PDR 
zs IS To BE USED, SfosPaNe <5:0>, AND VBA <12:6> IS ADDED 
i* TO PAR <11:00> O° GIVE PBA <17:6>. BITS <17:16> OF THE 
:* PHYSICAL ADDRESS ARE LEFT IN LOC. ' AND BITS <15:00> 
* ARE LEFT IN LOC. 'PBALO’’. THE PSW'S ‘CURRENT "BITS 
:* ARE USED TO SELECT THE KERNEL OR USER PAR/PDR'S. THE ROUTINE 
:* IS ENTERED WITH LOC. ‘VIRT1'' CONTAINING THE 16-BIT VIRTUAL 
i* ADDRESS. 
** 
DUA EIEIO TOOTSIE ISIS IOIISISISISIDIOUIOUOOIDO IN OnE 
FORMPA : 
MOV RO,-(SP) ::PUSH RO ON STACK 
MOV R2.-(SP) +:PUSH R2 ON STACK 
MOV #KIPARO,R2 :LOAD ADDRESS sOF FIRST KERNEL PAR IN R2 
BIT #140000.PSwW 3 IN USER MODE? 
BEQ CH IF NO 
MOV #UIPARO,R2 ;LOAD ADDRESS OF FIRST USER PAR IN R2 
1$: MOV VIRT1,RO “LOAD VIRTUAL ADDR. (VBA) INTO RO 
ASH -14,R0 [GET BITS <15:13> DOWN TO BITS <3:1> 
BIC #177761,RO : OF ALL BITS BUT BITS <3:1> 
ADD 0,R2 [ADD OFFSET TO BASE PAR ADDRESS 
MOV (R2) RO ‘GET BITS <11:00> FROM APPROPRIATE PAR 
MOV RO, Re :COPY PAR BITS <11:00> INTO R2 
MOV VIRT1,PBALO [PUT VIRTUAL ADDR. IN LOC. pe 
BIC #160000, PBALO CLEAR OFF BITS <i5: i35 OF ORIGINAL VBA 
ASH -12,R [GET PAR <11:00> DOWN TO BITS <1:0> OF R2 


x. 
CJKDACO KTF11=AA MMU DIAG MACY11 30A(1052) 12=MAR=80 08:00 PAGE 1-74 
CJKDAC.P11 12=MAR=-80 07:56 CONVERT VIRTUAL ADDRESS TO PHYSICAL ADDRESS 


035540 7 #177774 ,R2 : CLEAR OFF ALL BITS BUT BITS <1:0> 
000006 #6,R0 * SHIFT AR<9:0> ms $t33 6> OF RO 
#77,RO CLEAR BITS <5:0> OF RO 
RO,PBALO zIN EFFECT, ADD vEne1 5: 0> TO PAR<9:0> 
: (PAR<9:0> IN BITS <15:6> OF RO) 
ADD ANY CARRY TO R2 
PUT BITS <17:16> OF PHYSICAL ADDR. IN PRAHI 
::POP STACK INTO R2 
(SP)+,RO :zPOP STACK INTO RO 
035572 000207 PC sRETURN TO PROGRAM 
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ee Ne Ne ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee el eee eee ee eee ee ee ee ee eee ele lee las eae le “es 


035574 
035602 


03 
035672 


035674 
035700 


035732 
035740 


035744 


022737 
4 


042716 


000176 
143334 


143330 
177600 
000007 


143252 
143246 
177600 
000003 
036524 
000006 
001135 
000100 
036566 
000025 
036531 
000006 


000015 
000004 
000002 
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001140 


000001 


000001 
143204 


143132 


INPUT ROUTINE 
.SBTTL TTY INPUT ROUTINE 


5 EAA REE REE REAR EERE ERE REE RREEEEEREEKKEERREREERREEEERE EKER 


-ENABL LSB 


ett iii tri rriiriiiiiti titi iti tititiitititiii titty 
*SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 
;*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 
:*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 
> x WHEN OPERATING IN TTY FLAG MODE. 


$CKSWR: CMP ASWREG, SWR ii1S THE SOFT~SWR SELECTED? 
BNE 15$ : ;BRANCH IF NO 
TSTB asTks 2CHAR T HERE? 
BPL 15$ ZIF NO. DON'T WAIT AROUND 
MOVB = a$TKB,~(SP) S:SAVE THE CHAR 
BIC #°(177, (SP) + STRIP-OFF THE ASCII 
CMP #7, (SP5+ ::1S IT A CONTROL G? 
BNE 15$ ::NO, RETURN TO USER 
CMPB —s«- $AUTOB,, #1 Z ARE WE RUNNING IN AUTO-MODE? 
BEQ 15$ + ZBRANCH IF YES 
TYPE  ,$CNTLG z:ECHO THE CONTROL-G (*G) 
$GTSWR: TYPE  *$MSWR t: TYPE CURRENT CONTENTS | 
MOV SWREG, -(SP) ii SAVE SWREG FOR TYPEOU 
TYPOC :GO TYPE=-OCTAL ASCITLALL DIGITS) 
TYPE  SMNEW +: PROMPT FOR NEW SWR 
19$ CLR =(SP) ::CLEAR COUNTER 
CLR -(SP) +: THE NEW SWR 
7$: TSTB = a$STKS S=CHAR THERE? 
BPL 7$ +:IF NOT TRY AGAIN 
MOVB  a$TKB,-(SP) z:PICK UP CHAR 
BIC #°C177, (SP) S=MAKE IT 7-BIT ASCII 
CMP (SP) #3 zz1S IT A CONTROL-C? 
BNE 9$ + BRANCH IF NOT 
TYPE ,$CNTLC t:YES, ECHO CONTROL-C (*C) 
ADD #6,SP 2: CLEAN UP STACK 
CMPB Ss $IINTAG,, #1 REENABLE TTY KEYBOARD INTERRUPTS? 
BNE BS * [BRANCH IF 
MOV #100, a$TKS ; TALLOW TTY KEYBOARD INTERRUPTS 
8$: JMP CNTRLC *“ CONTROL=C RESTART 
9$: CMP (SP) ,#25 :31S IT A CONTROL-U? 
BNE 10$ CH IF NOT 
TYPE =, $CNTLU ae YES, ECHO CONTROL-U (“U) 
20$: ADD #6, SP ; IGNORE PREVIOUS INPUT 
BR 19$ SiLET'S TRY IT AGAIN 
10$: CMP (SP) #15 sz1$ IT A <CR>? 
BNE 16$ CH IF NO 
TST 4 (SP) :iYES, IS IT THE FIRST CHAR? 
BEQ 11$ CH IF YES 
MOV 2(SP) ,aSWR S:SAVE NEW SWR 


SEQ 0089 


CJKDACO KTF11=AA MMU DIAG 
12=MAR-80 07:56 


CJKDAC.P11 


~~ 
= 
~ 
oO 


Ci te te ee i ee ee ee ae ee ee a a ee a a a ee ee, et a te, Oe a a a, a, La a La a a, a, a a a a a a, ee, ae 
ee NN ee Ne Ne Ne ee ee ee ee a ee ee ee ee ee ee ae a ee ee ee ee ee ee ae ae ee ee a eae ae ae ee eae 


062706 
104401 
123727 
001003 
012777 


000006 
001223 
001135 


000100 
037130 
000060 
000067 


000060 
000002 


000002 
177776 
001222 


000004 
143012 
143006 
177600 
000004 
142760 
142754 
177600 
000021 
000004 
000004 
000040 


MACY11 a othe ret 


000001 
143110 


000002 
000004 
000023 
000140 


000175 
000004 


17$: 


18$: 


INPUT ROU 


TYPE 


BR 
-DSABL LSB 


#6,SP 
$CRLF 
$INTAG,#1 
#100, a$TKS 


PC, ,$TYPEC 
(SP) ,#60 


(SP) ,467 
18$ 

#60, (SP)+ 
2(SP) 


2(SP) 
-2(SP) , (SP) 
7$ 

,$QUES 

20$ 


7 
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;; CLEAR UP ye 
ae <CR> AND 
Shane TF aor KBD INTERRUPTS? 


: sRE-ENABLE TTY KBD INTERRUPTS 


; 3BRANCH if YES 


:UTYPE 2?<CR><LF> 
z¢SIMULATE CONTROL -U 


FARRER EKER EERE 


:ATHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


-* 
** 
** 


° 
° 
° 
° 


SRDCHR: MOV 
MO 


1$: 


2$: 


4$: 


RDCHR 
RETURN HERE 


(SP) ,=(SP) 

4(SP) ,2(SP) 

as$TkS 

1$ 

ast 
SP) #23 

a$TKS 

2$ 

@$TKB,-(SP) 

Cie, (SP) 

(SP)+, #21 

2$ 

1$ 

4 (SP) .4140 

4 (SP) .4175 

#40,4(SP) 


KB,4 (SP) 
Sue 4(SP) 


23 INPUT A_SINGLE CHARACTER FROM THE TTY 
: CHARACTER _IS ON THE STACK 
::WITH PARITY BIT STRIPPED OFF 


PUSH DOWN THE PC 
ZSAVE T THE PS 


TTY 

iG T RID OF JUNK IF ANY 
S_IT A CONTROLS? 

; :BRANCH IF Ae: 
: WAIT FOR A CHARACTER 

LOOP UNTIL_ITS THERE 
33GET CHARACTER 

7MAKE iT 7-BIT ASCII 
7:1S IT A CONTROL~Q? 
silk NOT DISCARD IT 


ae cTE RESUME 
§ iT 1 . CASE? 
CH YES 
i215 ITA SPECIAL CHAR? 
: ;BRANCH IF YES 
MAKE IT UPPER CASE 
::GO BACK TO USER 


J EAA REAR EERE EEA REE EERE EERE EERE EKER EE 


>*THIS ROUTINE WILL INPUT A STRING FROM THE TTY 


SEQ 0090 
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s*CALL: 

;* RDLIN 32 INPUT A STRING FROM THE TTY 

RETURN HERE fete OF FIRST CHARACTER WILL BE o THE STACK 
72 TERMINATOR WILL BE A BYTE OF ALL O'S 


R3,-(SP) ;:SAVE R3 
-(§P) :3CLEAR THE RUBOUT KEY 
ASTTYIN,R3 RESS 
#STTYIN®. .R3 u 
3: “GO READ ONE CHARACTER FROM THE TTY 
(SP) +, (R3) 2GET CHARACTER 
#3, (R3) 71S IT A CONTROL-C? 
10$ + BRANCH IF NO 
z3TYPE A CONTROL=C (*C) 
=CLEAN RUBOUT KEY OFF OF THE STACK 
: RESTORE R3 
NTRLC ::GOTO CONTROL =¢ RESTART 
#177, (R3) 21S IT A RUBOUT 
5$ IF NO 
sp) 1S THIS, THE FIRST RUBOUT? 
00013 036512 MOVB = #"\,,9$ :: TYPE A BACK SLASH 
177777 #-1, (SP) :3SET THE RUBOUT KEY 
R3 KUP BY ONE 


: ;BA 
036514 aaa ii STACK EMPTY? 


;BR_IF YES 
036512 MOVB (R3) ,9$ at TYPEOUT THE DELETED CHAR. 


036512 .9$ 
BR 2s 22GO READ ANOTHER CHAR. 
(SP) fit we KEY SET? 


7$ oe NO 
000134 036512 MOVB #'\ ,9$ ::TYPE A BACK SLASH 


036512 ‘ 
(SP) +4 ant THE RUBOUT KEY 
000025 : #25,(R3) #IS ae A CTRL U? 


BN 
036531 .$CNTLU z TYPE A CONTROL ‘U"' 
BR START OV 


ER 
000022 : #22, (R3) 21S CHARACTER A *“*R''? 
BN 3$ 


* BRANCH IF NO 
(R3) 3 CLEAR THE CHARACTER 
001223 -SCRLF sTYPE A 'CR'' & LF’ 

036514 STTYIN 7:TYPE THE INPUT STRING 

at et ANOTHER CHACTER 


BR $ 
001222 3 , SQUES 

BR 7:CLEAR THE BUFFER AND LOOP 
036512 : MOVB (R3) ,9$ 22ECHO THE CHARACTER 


036512 . 
000015 #15, (R3)+ 23 CHECK FOR RETURN 
LOOP IF NOT RETURN 
177777 CLRB -1(R3) :2CLEAR RETURN (THE 15) 
001224 . SLF TYPE A LINE FEED 
5726 (SP) + 7:CLEAN RUBOUT KEY FROM THE STACK 
012603 (SP)+,R3 7 RESTORE R3 
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CJKDAC.P11 12-MAR-80 07:56 INPUT ROUTI SEQ 0092 
(1) 036472 011646 MOV (SP) ,=(SP) ;sADJUST THE STACK AND PUT ADDRESS OF THE 
(1) 036474 016666 000004 000002 MOV 4(SP5 ,2(SP) 33 FIRST ASCII CHARACTER ON IT 
(1) 036502 012766 036514 000004 MOV ASTTYIN,4(SP) 

(1) 036510 000002 RTI ; RETURN 
(1) 036512 000 9$: BYTE Q 33 STORAGE FOR ASCII CHAR. TO TYPE 
(1) 036513 000 BYTE Q RMINATOR 
(1) 036514 000010 $TTYIN: .BLKB_ 8. PRESERVE 8 * heen FOR TTY INPUT 
(1) 036524 041536 005015 000 $SCNTLC: .ASCIZ /*C/<15><12> ONTR Me 
(1) 036531 136 006525 000012 S$CNTLU: .ASCIZ /*U/<15><12> + CONTROL yf 
(1) 036536 043536 005015 000 $CNTLG: .ASCIZ /*G/<15><12> Fo achalta a 6 
(1) 036543 015 051412 051127 SMSWR: .ASCIZ <15><12>/SWR = 
(1) 036550 036440 000040 
(1) 036554 020040 042516 020127 SMNEW: .ASCIZ / NEW = / 
(1) 036562 020075 000 
(1) EVEN 
3166 
Le -SBTTL CONTROL=C SERVICING ROUTINE 
3169 7* THE FOLLOWING CODE IS EXECUTED WHEN A CONTROL-C HAS 
fa ta BEEN TYPED INSTEAD OF A NEW SWITCH REG. VALUE. 
3172 
3173 s* (IN OTHER WORDS, AFTER A CONTROL=G WAS TYPED). 
3174 s* A NEW SWITCH REG. get WILL BE 7 i FOR, 
3175 i* THE TEST NUMBER AND PASS NUMBER L BE TYPED, 
3158 ‘* AND THEN THE PROGRAM WILL GO TO HEND-OF -PASS'* AND CONTINUE 
3178 036566 013737 001234 001210 CNTRLC: MOV SPASS ,STMP5S +, THE VALUE OF *‘SPASS'' 
3179 036574 005237 001210 INC $TMP5 CURRENT PASS NO. 
3180 0: 104401 036645 TYPE CMSG i YPE THE TEST STOPS MESSAGE 
3181 036604 113737 001102 036640 MOVB $TSTNM, 1$ [SAVE THE TEST eee 
31 036612 013746 036640 MOV 1$,-(SP) : 3 SAVE 1$ FOR _TYPEOUT 
(1) 636616 104402 TYPOC GO TYPE--OCTAL ASCII(ALL DIGITS) 
3183 036620 104401 036642 TYPE .c$ TYPE 2 SPACES 
3184 (36624 013746 001210 MOV STMPS ,-(SP) 7zSAVE STMPS FOR TYPEOUT 
(1) 036630 104405 TYPDS $560 TYPE=-DECIMAL ASCII WITH SIGN 
3185 036632 104407 GTSWR FOR NEW SWR VALUE 
3186 036634 000137 033616 JMP SEOP+2 : CONTINUE AT _$EOP+2 
3187 036640 000000 1$: -WORD 0 :BUFFER Ay TEST NUMBER 
3188 036642 020040 000 2s: ASCIZ / TWO SPACES AND THE STOP MESSAGE 


3189 036645 112 046525 044520 CMSG:  .ASCiI 7 JUMPING TO END-OF -PASS/<15><12> 


036660 047105 026504 
036666 050055 051501 
036674 012 
3190 036675 124 051505 047124 -ASCIZ /TESTNO PASSNO/<15><12> 
036702 020117 050040 051501 
036710 047123 006517 
3191 -EVEN 
pt -SBTTL TYPE ROUTINE 
Iti iii t iii tir iii iti ii iiitiiiiiitiititiiiiititiiy, 
(1) + RROUT INE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 vre 
(1) 2 * THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED 
(1) ;*NOTE1: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
(1) : *NOTE2: $SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 





rc 
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CJKDAC.P11 —- 12=MAR=80 07:56 TYPE ROUTINE SEQ 0093 
ae ; *NOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 
(1) t SCALL: 

(1) #1) USING A TRAP INSiRUCTION 

q it TYPE §,MESADR ;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
te 

(1) te TYPE 

(1) 7* MESADR 

83 . 

( 

(1) 036716 105737 001157 $TYPE: TSTB  $TPFLG ::1S THERE A TERMINAL? 

(1) 036722 100002 BPL 1$ ::BR IF YES 

(1) 036724 000000 HALT + HALT HERE IF NO TERMINAL 

(1) 036726 000430 BR 3$ ; LEAVE 

(1) 036730 010046 1$: MOV RO,-(SP) :ZSAVE RO 

(1) 036732 017600 000002 MOV @2(SP) ,RO ‘:GET ADDRESS OF ASCIZ STRING 

(1) 036736 122737 000001 001246 CMPB  #APTENV,SENV  =::RUNNING IN APT MODE 

(1) 036744 001011 BNE 62$ t:NO,GO CHECK FOR APT CONSOLE 

(1) 036746 132737 000100 001247 BITB | #APTSPOOL.SENVM ::SPOOL MESSAGE TO APT 

(1) 036754 001405 BEQ 62$ ::NO,GO CHECK FOR CONSOLE 

(1) 036756 010037 036766 MOV RO,61$ >:SETUP MESSAGE ADDRESS FOR APT 

(1) 036762 004737 037206 JSR PC. $ATY3 ::SPOOL MESSAGE TO APT 

(1) 036766 000000 61$: “WORD 0 MESSAGE ADDRESS 

(1) 036770 132737 000040 001247 62$: § BITB #APTCSUP,$ENVM ::APT CONSOLE SUPPRESSED 

(1) 036776 001003 BNE 60$ S:YES,SKIP TYPE OUT 

(1) 037000 112046 2s: MOVB (RO) +, =(SP) ; PUSH CHARACTER TO BE TYPED ONTO STACK 

(1) 037002 001005 BNE 4$ ‘BR IF IT ISN'T THE TERMINATOR 

(1) 037004 005726 TST (SP) + ::IF TERMINATOR POP IT OFF THE STACK 

(1) 037006 012600 60$: MOV (SP) +,RO *=RESTORE RO 

(1) 037010 062716 000002 3$: ADD #2, (SP) + ADJUST RETURN PC 

(1) 037014 000002 RTI + =RETURN 

(1) 037016 122716 000011 4$: CMPB AHT , (SP) : BRANCH IF <HT> 

(1) 037022 BEQ $ 

(1) 037024 122716 000200 CMPB ACRLF , (SP) 7 BRANCH IF NOT <CRLF> 

(1) 037030 001006 BNE 5$ 

(1) 037032 005726 TST (SP)+ 7:POP  <CR><LF> EQUIV 

(1) 037034 104401 TYPE T:TYPE A CR AND L 

(1) 037036 001223 $CRLF 

(1) 037040 105037 037174 CLRB § $CHARCNT i:CLEAR CHARACTER COUNT 

(1) 037044 000755 BR 2$ ::GET NEXT CHARACTER 

(1) 037046 004737 037130 5$: JSR PC ,$TYPEC ':GO0 TYPE THIS CHARACTER 

(1) 037052 123726 001156 6$: CMPB ss SFILLC,(SP)+  ::1S IT TIME FOR FILLER CHARS, ? 

(1) 037056 001350 BNE 2$ ::1F NO GO GET NEXT CHAR 

(1) 037060 013746 001154 MOV $NULL .-(SP) ::GET # OF FILLER CHARS. * NEEDED 

(1) THE NULL CHAR. 

(1) 037064 105366 000001 7$: DECB  ~—-1( SP) ; :DOES A NULL NEED TO BE TYPED? 

(1) 037070 002770 BLT 6$ ;BR IF NO=--GO POP THE NULL OF F OF STACK 

(1) 037072 004737 037130 JSR PC ,$TYPEC +:GO TYPE A NULL 

(1) 037076 105337 037174 DECB $CHARCNT *:DO NOT COUNT AS A COUNT 

(1 037102 000770 BR 7$ >: LOOP 

(1) ;HORIZONTAL TAB PROCESSOR 

(1) 037104 112716 000040 8$: MOVB (SP) ; :REPLACE TAB WITH SPACE 

(1) 037110 004737 037130 9$: JSR Be $TYPEC SZ TYPE A SPACE 

(1) 037114 132737 000007 037174 BITB  #7.$CHARCNT + BRANCH IF NOT AT 
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CJKDAC.P11 TD-MAR-80 67: 56 TYPE ROUTINE SEQ 0094 
(1) 037122 001372 BNE 9$ 7: TAB STOP 
(1) 037124 005726 TST (SP) + ; :POP SPACE OFF STACK 
(1) 037126 000724 BR 2$ 'GET NEXT CHARACTER 
(1) 037130 105777 142014 $TYPEC: TSTB  a$TPS +:WAIT UNTIL PRINTER IS READY 
(1) 037134 100375 BPL $TYPEC 
(1) 037136 116677 000002 142006 MOVB = 2(SP) ,a$TPB LOAD CHAR TO BE TYPED INTO DATA REG. 
(1) 037144 122766 000015 000002 CMPB ss CR, 2( SP) HIS CHARACTER A CARRIAGE RETURN? 
(1) 037152 001003 BNE 1$ CH IF NO 
(1) 037154 105037 037174 CLRB § $CHARCNT i: YES“=CLEAR CHARACTER COUNT 
(1) 037160 000406 BR STYPEX TEXIT 
(1) 037162 122766 000012 000002 1S: CMPBOALF,, 2g (SP) 'iI1S CHARACTER A LINE FEED? 
(1) 037170 001402 BEQ $TYP ::BRANCH IF YES 
(1) 037172 105227 INCB TPL) e. ::COUNT THE CHARACTER 
(1) 037174 000000 $SCHARCNT:.WORD 0 t= CHARACTER COUNT STORAGE 
(1) 037176 000207 $TYPEX: RTS PC 
319 .SBTTL APT COMMUNICATIONS ROUTINE 
(2) TARR REE EER ERE REE EEE EERE ERE 
(1) 037200 112737 000001 037444 $ATY1: MOVB #1,$FFLG 32:TO REPORT FATAL ERROR 
(1) 037206 112737 000001 037442 $ATY3: MOVB #1 SMF LG +:TO TYPE A MESSAGE 
(1) 037214 000403 BR SATY 
(1) 037216 112737 000001 037444 $ATY4: MOVB #1 SFFLG ::TO ONLY REPORT FATAL ERROR 
(1) 037224 SATYC: 
(3) 037224 010046 MOV RO,-(SP) ::PUSH RO ON STACK 
(3) 037226 010146 MOV R1,-(SP) + =PUSH R1 ON STACK 
(1) 037230 105737 037442 TSTB = $MFLG 3 SHOULD TYPE A MESSAGE? 
(1) 037234 001450 BEQ 5$ SIF NOT: BR 
(1) 037236 122737 000001 001246 CMPB  =—s- HAPTENV, SENV : FOPERATING UNDER APT? 
(1) 037244 001031 BNE 3$ NOT: 
(1) 246 132737 000100 001247 BITB § #APTSPOOL,SENVM 33 SHOULD SPOOL MESSAGES? 
(1) 037254 001425 BEQ TIF BR 
(1) 037256 017600 000004 MOV a4 (SP) RO T3GET NRESSAGE ADDR. 
(1) 037262 062766 000002 000004 ADD #2,4(SP) 7 BUMP RETURN ADDR. 
(1) 037270 005737 001226 1$: TST $MSGTYPE z:SEE IF DONE W/ LAST XMISSION? 
(1) 037274 001375 BNE 1$ TIF NOT: WAIT 
(1) 037276 010037 001242 MOV RO, SMSGAD +:PUT ADDR IN MAILBOX 
(1) 037302 105720 2$: TSTB ~—- (RO) + ::F IND END OF MESSAGE 
(1) 037304 001376 BNE 2$ 
(1) 037306 001242 SUB SMSGAD ,RO ::SUB START OF MESSAGE 
(1) 037312 006200 ASR RO ::GET MESSAGE LNGTH IN WORDS 
(1) 037314 010037 001244 MOV RO, SMSGLGT [PUT LENGTH IN MAILBOX 
(1) 037320 012737 000004 001226 MOV #4. $MSGTYPE S:TELL APT TO TAKE MSG. 
(1) 037326 000413 BR 5$ 
(1) 037330 017637 000004 037354 3$: MOV a4 (SP) 48 :PUT MSG ADDR IN JSR LINKAGE 
(1) 037336 062766 000002 000004 ADD #2,4(SP) “BUMP RETURN ADDRESS 
(3) 037344 013746 177776 MOV 177776,-(SP) PUSH 179776 ON STACK 
(1) 037350 004737 036716 JSR PC $TYPE [CALL TYPE MACRO 
(1) 037354 000000 : .WORD 0 
(1) 037356 5$: 
(1) 037356 105737 037444 10$: TST&  $FFLG ::SHOULD REPORT FATAL ERROR? 
(1) 037362 001416 BEQ 12$ S:1F NOT: 
(1) 005737 001246 TST SENV : ERUNNING UNDER APT? 
(1) 037370 001413 BEQ 12$ [IF NOT: BR 
(1) 037372 005737 001226 11$: TST $MSGTYPE : FINISHED LAST MESSAGE? 
(1) 037376 0901375 BNE 11$ SiIF NOT: WAIT 
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CJKDAC.P11 12=MAR-80 07:56 COMMUNICATIONS ROUTINE SEQ 0095 
(1) 037400 017637 000004 001230 MOV @4(SP),$FATAL ;;GET ERROR a 

1) 037406 062766 000002 000004 ADD #2,4(SP) ;BUMP RETURN ADDR. 
1) 037414 005237 001226 INC SMSGTYPE F >TELL abt TO TAKE ERROR 
1) 037420 105037 037444 12$: CLRB SFFLG 7;CLEAR FATAL FLAG 
1) 037424 105037 037443 CLRB $LFLG :-CLEAR LOG FLAG 
1) 037470 105037 037442 CLRB SMFLG ;-CLEAR MESSAGE FLAG 
3) 037434 012601 MOV (SP)+,R1 :2POP STACK INTO R1 
3) 037436 012600 MOV (SP) +,RO 33POP STACK INTO RO 
1) 037440 000207 RTS PC ; sRETURN 
1) 037442 000 SMFLG: .BYTE 0 :=MESSG. FLAG 
1) 037443 000 $LFLG: .BYTE 0 ae FLAG 
1) 037444 000 $FFLG: .BYTE 0 7FATAL FLAG 
1) 037446 -EVEN 
1) 2 APTSIZE=200 
1) 1 APTENV=001 
1) 000100 APTSPOOL=100 
1) 000040 APTCSUP=040 

3194 -SBTTL BINARY TO ASCII AND TYPE ROUTINE 


LF RRR 


:*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 16-B1T 
: *BINARY~ASCII NUMBER AND TYPE IT. 


3*CALL: 
3* MOV NUMBER ,- (SP) ; NUMBER TO BE TYPED 
* TYPBN sc TYPE IT 
037446 010146 $STYPBN: MOV R1,-(SP) th i R1 ON THE STACK 
037450 016601 000006 MOV 6(SP),R1 cee HE INPUT NUMBER 
037454 000261 SEC SET ‘'C'’ SO CAN KEEP TRACK OF THE NUMBER OF BITS 
037456 112737 000060 037520 1$: MOVB #'0,$BIN SET CHARACTER TO AN ASCII ‘0°’. 
037464 006101 ROL Ri 3IGET THIS BIT 
037466 001406 BEQ 2s 3D 
037470 105537 037520 ADCB SBIN ‘ROSE, THE CHARACTER EQUAL TO THIS BIT 
037474 104401 037520 TYPE ,$BIN 3:GO TYPE THIS BIT 
037500 000241 CLC 77CLEAR ‘'C'' SO CAN KEEP TRACK OF BITS 
037502 000765 BR 1$ 3:GO DO THE NEXT BIT 
037504 012601 2$: MOV (SP)+,R1 33;POP THE STACK INTO R1 
037506 016666 000002 000004 MOV 2(SP) ,4(SP) ;zADJUST THE STACK 
037514 012616 MOV (SP)+, (SP) 
037516 000002 RTI ; RETURN TO USER 
037520 000 000 $BIN: -BYTE 0,0 ;; STORAGE FOR ASCII CHAR. AND TERMINATOR 


.SBITL BINARY TO OCTAL (ASCII) AND TYPE 


RII IIIS ISIS IIOIIIIUIDIDIOUIOIIOUIUIIOUIIIUO OR ttk 

tSTHIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
:*OCTAL (ASCII) NUMBER AND TYPE IT 

>*$TYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


et ee ate et ae at te ee ht ae ee an at a ea ee et Yan a ee in et ea ten a ee a ea ea i at ee ee i et eet a a a ae, ee a a a, a a ee a a a 


A es SS 4 2 2 2 2 | "9 9 I) SS SS 2 2 9 3 hs SS oS Ss OO 
Nee eee ee eee eee ee ee eee eee ee le eae ee ee a 


>*CALL: 

i* MOV NUM, - (SP) NUMBER TO BE TYPED 

:* TYPOS CALL FOR TYPEOU 

i* BYTE N ziN=1 TO 6 FOR NUPBER OF DIGITS TO TYPE 
i* BYTE ™ ::M=1 OR O 

:* 3 1=TYPE LEADING ZEROS 

i* 7;0=SUPPRESS LEADING ZERUS 

** 

7*$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
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- 
_ 
~~ 


037522 


OO Pm mm mE 
— RS SS SS SS Ss Ss SS SS Ss Ss Ss SS SS SS ss SS Ss Ss Ss SS) 2 >) Ss SS SS SS 9 SS SS SS Ss Ss SS Ss SS SS ss Ss GS SS 
a i ee ee ee a ae ee a a a 
wW 
o 
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000000 
000001 
037747 
000002 
000001 
000006 
000005 
037747 


000006 
037746 
037745 
000012 


037746 
177770 


037744 


000002 000004 


F 8 
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BINARY TO OCTAL (ASCII) AND TYPE 


:*$TYPOS OR $TYPOC 


3 *CALL 

7* MOV NUM, -(SP) 
se TYPON 

*& 

*CALL 

se MOV NUM , = (SP) 
* TYPOC 

$TYPOS: MOV a(SP) ,-(SP) 


MOVB 1(SP) ,$OF ILL 
SOMOD 


MOVB (SP)+, 
ADD #2, (SP) 
STY 


BR PON 
$TYPOC: MOVB #1, SOF ILL 

MO #6, SOMOD 
$TYPON: se #5, SOCNT 


MOVB ; SOMODE 
MOVB SOF ILL, or 


CLR 
1$: ROL Rs 
BR 3$ 
23: ROL R5 
ROL R5 
ROL R5 
MOV R5,R3 
3$: ROL R3 
DECB SOMODE 
L 7$ 
BIC #177770,R3 
BNE 
TST R4 
BEQ 5$ 
4$: INC R4 
BIS #'0,R3 
5$: BIS #' JR3 
VB ~——R3, BS 
TYPE 8 
7$: DECB SOCNT 
BGT es 
BLT 6$ 
INC R4 
BR 2s 
6$: MOV (SP)+,R5 
MOV (SP) +,R4 
MOV (SP 


)+,R3 
MOV 2(SP) ,4(SP) 
MOV (SP)+, (SP) 


SEQ 0096 


; =NUMBER TO BE TYPED 
73CALL FOR TYPEOUT 


t*$TYPOC==-ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 


; NUMBER TO BE TYPED 
:sCALL FOR TYPEOUT 


:sPICKUP THE MODE 

+ ¢LOAD ey ars, SWITCH 

: R OF DIGITS TO TYPE 
; ADJUST RETURN ADDRESS 


77SET THE ZERO 5 at Ps: Mat 
22SET FOR SIX(6) D 
72SET " ITERATION” COUNT 


: R5 
SIGET THE NUMBER OF DIGITS TO TYPE 


72 SUBTRACT IT FOR MAX. ALLOWED 
7zSAVE IT FOR USE 

3:GET THE ZERO FILL SWITCH 
3zPICKUP THE INPUT NUMBER 
3zCLEAR THE OUTPUT WORD 

; ROTATE MSB INTO ‘'C’’ 


3:GO DO MSB 
72FORM THIS DIGIT 


7:GET LSB OF THIS DIGIT 
fig 8 iy iy DIGIT? 


2 GET RID OF JUNK 
72 TEST FOR O 
iiBR IF us 0? 
;;DON'T SUPPRESS ANYMORE 0'S 
2 7MAKE THIS DIGIT ASCII 
ont es NOT ALREADY 
>7SAVE FOR TYPING 
2360 by 8 nus DIGIT 
: BR IF MORE TO DO 
:BR_IF DONE 
#3 INSURE LAST ae H ISN'T A BLANK 
3:60 D i dl DIGIT 


7eREST R3 
:3SET THE STACK FOR RETURNING 


G 8 | 
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(1) 037740 000002 RTI  :RETURN 

(1) 037742 000 8$: .BYTE 0 tiSTORAGE FOR ASCII DIGIT 

(1) 037743 000 “BYTE 0 TERMINATOR FOR TYPE ROUTINE 

(1) 037744 000 SOCNT: BYTE 0 SOCTAL DIGIT COUNTER 

(1) 037745 000 $OFILL: .BYTE 0 :ZERO FILL SWITCH 

(1) 037746 000000 SOMODE: .WORD 0 “NUMBER OF DIGITS TO TYPE 
3196 .SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 

( 

(2) FARRER AREER ERATE ERE EREKERREERRERKKEKERREKERRERKEEEEEEKEEE EE 
(1) <STHIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A S-DIGIT 
(1) ; *SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
(1) > *NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
(1) :*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
a ate WITH SPACES. 

*“* s 

(1) 3* MOV NUM, -(SP) 3zPUT THE BINARY NUMBER ON THE STACK 
as oe TYPDS :;GO TO THE ROUTINE 

(1) 037750 $TYPDS: 

(3) 037750 010046 MOV RO,-(SP) ::PUSH RO ON STACK 

(3) 037752 010146 MOV R1.-(SP) *=PUSH R1 ON STACK 

(3) 037754 010246 MOV R2.-(SP) ;3PUSH R2 ON STACK 

(3) 037756 010346 MOV R3.-(SP) PUSH R3 ON STACK 

(3) 037760 010546 MOV R5.-(SP) *=PUSH R5 ON STACK 

(1) 037762 012746 020200 MOV #20200,-(SP) ::SET BLANK SWITCH AND SIGN 

(1) 66 016605 000020 MOV 20(SP) _RS ::GET THE INPUT NUMBER 

(1) 037772 BPL ':BR IF INPUT IS POS 

(1) 037774 005405 NEG R5 SZMAKE THE BINARY NUMBER POS. 

(1) 037776 112766 000055 000001 MOVB = #*=, 1 (SP) ;:MAKE THE ASCII NUMBER NEG. 

(1) 040004 005000 1$: CLR RO [ZERO THE CONSTANTS INDEX 

(1) 040006 012703 040164 MOV #SDBLK ,R3 :°SETUP THE OUTPUT POINTER 

(1) 040012 112723 000040 MOVB a’ ~(R3)+ 2éSET THE FIRST CHARACTER TO A BLANK 
(1) 040016 005002. 2$: CLR R 7:CLEAR THE BCD NUMBER 

(1) 040020 016001 040154 MOV $DTBL(RO),R1  ::GET THE CONSTANT 

(1) 040024 160105 3$: SUB R1,R5 [:FORM THIS BCD DIGIT 

(1) 040026 002402 BLT 4$ ::BR IF 

(1) 040030 005202 INC R2 SZ INCREASE THE BCD DIGIT BY 1 

(1) 040032 000774 BR 3$ 

(1) 040034 060105 4$: ADD R1,R5 :zADD BACK THE CONSTANT 

(1) 040036 005702 TST R2 ::CHECK IF BCD DIGIT=0 

(1) 040040 001002 BNE 5$ ‘FALL THROUGH IF 0 

(1) 040042 105716 TSTB. ss (SP) ii STILL DOING LEADING 0'S? 

(1) 040044 100407 bil 7$ ::BR IF YES 

(1) 040046 106316 5$: ASLB (SP) ; :MSD? 

(1) 040050 103003 BCC 6$ ‘BR IF NO 

(1) 040052 116663 000001 177777 MOVB 1(SP),-1(R3) =: YES==SET THE SIGN 

(1) 040060 052702 900060 6$: BIS #'°0,R2 ;7MAKE THE BD DIGIT ASCII 

(1) 040064 052702 000040 7$: BIS a’ “RO MAKE | IT A SPACE IF NOT ALREADY A DIGIT 
(1) 040070 110223 MOVB R2,(R3)+ + PUT THIS CHARACTER IN THE OUTPUT BUFFER 
(1) 040072 005720 TST (RO) + +: JUST INCREMENT ING 

(1) 040074 020027 000010 CMP RO,#10 *ZCHECK THE TABLE INDEX 

(1) 040100 002746 BLT 2$ ':G0 DO THE NEXT DIGIT 

(1) 040102 003002 BGT x3 +:G0 TO EX 

(1) 040104 010502 MOV R5,R2 73GET THE tp 

(1) 040106 000764 BR 6$ +:GO CHANGE TO ASCII 

(1) 040110 105726 8$: TSTB = (SP) + tiWAS THE LSD THE FIRST NON-ZERO? 


8 
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(1) 040112 100003 BPL 9$ ::BR_ IF NO 

040114 116663 177777 177776 MOVB ~1(SP),-2(R3) 3; YES=-SET THE SIGN FOR TYPING 
040122 105013 9$: CLRB (R3) :2SET THE TERMINATOR 
040124 012605 MOV (SP)+,R5 :2POP STACK INTO R5 
040126 012603 MOV (SP) +,R3 3zPOP STACK INTO R3 
040130 012602 MOV (SP)+,R2 :2POP STACK INTO R2 
040132 012601 MOV (SP)+,R1 ::POP STACK INTO R1 
040134 012600 MOV (SP) +,RO + sPOP STACK_INTO RO 
040136 104401 040164 TYPE $DBLK sNOW TYPE THE NUMBER 
040142 016666 000002 000004 MOV 2(SP) ,4(SP) ZZADJUST THE STACK 
040150 012616 MOV (SP) +, (SP) 
040152 000002 RTI ;;RETURN TO USER 
040154 023420 $DTBL: 10000. 
040156 001750 1000. 

1 000144 
040162 000012 
040164 000004 $DBLK 


-BLK 
SBTTL SAVE MAND RESTORE RO-R5 ROUTINES 


FARRER EKER EKER KR EKER 


: FSAVE RO-R5 
*CALL: 


Iw 
Ct te Ei i i St ate ee ty ee een hi et ate ee a a a a te a ae 
We 3 2 BB SS Ss 3 3 ND SS ON 2 OP FP OS 2S OS Ss Ss BAWWWWW SS 


tt i i i 


ts SAVREG 
: *UPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE: 
eTOP===(+16) 
p* +2--=(+18) 
y* +4=---R5 
z* +6---R4 
2% +8---R3 
3*+10---R2 
3&t+12---Ri 
3*+14---R0 
040174 SSAVREG: 
040174 010046 MOV RO,-(SP) 3=PUSH RO ON STACK 
(3) 040176 010146 MOV R1,-(SP) :=PUSH R1 ON STACK 
(3) 0. 010246 MOV R2,-(SP) : PUSH R2 ON STACK 
(3) 040202 010346 MOV R3,-(SP) 3;PUSH R3 ON STACK 
(3) 040204 0446 MOV R4,-(SP) :=PUSH R4& ON STACK 
(3) 0. 010546 MOV R5,-(SP) ;:PUSH RS ON STACK 
(1) 040210 000022 MOV 22(SP) ,=(SP) SAVE PS OF MAIN FLOW 
(1) 040214 016646 100022 MOV 20(SP) .~(SP) 72SAVE PC OF MAIN FLOW 
(1) 016646 000022 MOV 22(SP) ,-(SP) 7eSAVE PS OF CALL 
a3 040224 016646 000022 “44 22(SP) ,-(SP) 2eSAVE PC OF CALL 
(1) 
(1) ;*RESTORE RO-R5 
(1) 2*CAL 
(1) 2% RESREG 
(1) 040232 SRE SREG 
(1) 040232 012666 000022 MOV (SP) +,22(SP) sRESTORE PC OF CALL 
(1) 0236 012666 000022 MOV (SP) +,22(SP) RESTORE PS OF CALL 
(1) 040242 012666 000022 MOV (SP) +,22(SP) ; ;RESTORE PC OF eo FLOW 
(1) 040246 012666 000022 MOV (SP)+,22(SP) RESTORE PS OF MAIN FLOW 
(3) 040252 012605 MOV (SP) +2R5 ::POP STACK INTO RS 
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DAC .P 12-MAR=80 07:56 SAVE AND RESTORE RO=-R5 ROUTINES SEQ 0099 
(3) 040254 012604 MOV (SP) +,R4 7sPOP STACK INTO R4& 

(3) 040256 012603 MOV (SP)+,R3 3sPOP STACK INTO R3 

(3) 040260 012602 MOV (SP)+,R2 3sPOP STACK INTO R2 

(3) 040262 012601 MOV (SP)+,R1 :sPOP STACK INTO R1 

(3) 040264 012600 MOV (SP)+,RO :2POP STACK INTO RO 

(1) 040266 2 RTI 
abt -SBTTL DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE 

(2) FREER KERR 

(1) TRTHIS ROUTINE WILL CONVERT A 32=BIT UNSIGNED BINARY NUMBER TO AN 

at : SUNS IGNED OCTAL ASCIZ NUMBER. 

. a 

(1) i* #PNTR,=(SP) 3:POINTER TO LOW WORD OF BINARY NUMBER 
(1) 7* JSR PC ,a#$DB20 3:-CALL THE ROUTINE : 
43 s* RETURN 3-THE ADDRESS OF THE FIRST ASCIZ CHAR. IS ON THE S71ACK 
(1) 

(1) 

(1) 040270 104413 $DB20: SAVREG ; « SAVE ALL REGISTERS 

(1) 040272 016601 000002 MOV 2(SP) ,R1 PICKUP THE POINTER TO LOW WORD 

(1) 040276 012705 greats MOV ASOCTVL+13.,R5 S POINTER TO DATA TABLE 

(1) 040302 012704 000014 MOV #12. ,R4 :1D0 ELEVEN CHARACTERS 

(1) 040 012703 177770 MOV #*C7,R3 : sMASK 

(1) 040312 012100 MOV (R1)+,RO fin ray WORD 

(1) 040314 012101 MOV (R1)+,R1 GH WORD 

(1) 040316 005 CLR R2 ; TERMINATOR 

(1) 040320 110245 1$ MOVB R2,-(R5) PUT CHARACTER _IN DATA TABLE 

(1) 040322 01 MO RO,R2 GET THIS DIGIT 

(1) 040324 005304 DEC R4 3-COUNT THIS CHARACTER 

(1) 040326 003007 BGT 3$ : BR IF NOT THE LAST DIGIT 

(1) 040330 001405 BEQ 2$ :BR IF IT_IS THE LAST DIGIT 

(1) 040332 005205 INC R5 ALL DIGITS eat Bi POINTER FOR FIRST 
(1) 040334 010566 000002 MOV R5,2(SP) 7sASCIZ CHAR. & PUT IT ON THF STACK 

(1) 040340 104414 RESREG 2 ¢RESTORE ALL REGISTERS 

(1) 040342 000207 RTS PC RETURN TO USER 

(1) 040344 006203 2$: ASR R3 ::POSITION THE MASK FOR THE LAST DIGIT 
(1) 040346 006001 3$: ROR R1 : POSITION THE BINARY NUMBER FOR 

(1) 040350 006000 ROR RO ae THE NEXT OCTAL DIGIT 

(1) 040352 006001 ROR R1 

(1) 040354 006000 ROR RO 

(1) 040356 006001 ROR R1 

(1) 040360 006000 ROR RO 

(1) 040362 040302 BIC R3,R2 3 zMASK OUT ALL JUNK 

(1) 040364 062702 000060 ADD #'D,R2 2 ¢MAKE THIS CHAR. ASCII 

(1) 040370 000753 BR 1$ :GO PUT IT IN THE DATA TABLE 

(1) 040372 000016 SOCTVL: .BLKB 14. TZRESERVE DATA TABLE 


J 8 
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3200 .SBTTL TRAP DECODER 
(3) FERRER EERE EEE EEE TERE ER ERKEKEKEKEREREREERKEEREKRE 

(1) STHIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘'TRAP’’ INSTRUCTION 

(1) :*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 

(1) :*0F THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 

a =*GO TO THAT ROUTINE. 

(1) 040410 010046 STRAP: MOV RO,-(SP) Zi: SAVE RO 

(1) 040412 016600 000002 MOV 2(SP) ,RO ;GET TRAP ADDRESS 

(1) 040416 005740 TST -(RO) KUP BY 2 

(1) 040420 111000 MOVB = (RO) ,RO 33GET RIGHT BYTE OF TRAP 

(1) 040422 006300 ASL RO :POSITION FOR INDEXING 

(1) 040424 016000 040444 MOV $TRPAD(RO),RO ::INDEX TO TABLE 

(1) 040430 000200 RTS RO *:GO TO ROUTINE 

(1) 

(1) zz THIS IS USE TO HANDLE THE ‘'GETPRI'' MACRO 

(1) 040432 011646 $TRAP2: MOV (SP) ,=(SP) z:MOVE THE PC DOWN 

(1) 040434 016666 000004 000002 MOV 4(SP) ,2(SP) *:MOVE THE PSW DOWN 

(1) 040442 000002 RTI > RESTORE THE PSW 

tH .SBTTL TRAP TABLE 

(3) z*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 

(3) :*BY THE "'TRAP’’ INSTRUCTION. 

oH : ROUT INE 

(3) 040444 040432 $TRPAD: .WORD $TRAP2 

(3) 040446 036716 $TYPE  ;;CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 

(3) 040450 0375/6 $TYPOC ::CALL=TYPOC § TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
(3) 040452 037522 $TYPOS ::CALL=TYPOS  TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
(3) 040454 037562 $TYPON ::CALL=TYPON  TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
(3) 040456 037750 $TYPDS ::CALL=TYPDS  TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 
3) 040460 037446 $TYPBN ::CALL=TYPBN _TRAP+6(104406) TYPE BINARY (ASCII) NUMBER 

(3) 040462 035644 $GTSWR ::CALL=GTSWR § TRAP+7(104407) GET SOFT-SwWR SETTING 

(3) 040464 035574 SCKSWR ;;:CALL=CKSWR | TRAP+10(104410) TEST FOR CHANGE IN SOFT-SWR 

(3) 040466 036116 SRDCHR ;::CALL=RDCHR TRAP+11(104411) TTY TYPEIN CHARACTER ROUTINE 
(3) 040470 036236 SRDLIN ::CALL=RDLIN TRAP+12(104412) TTY TYPEIN STRING ROUT INE 

(3) 040472 040174 $SAVREG ::CALL=SAVREG TRAP+13(104413) SAVE RO-RS ROUTINE 

(3) 040474 040232 SRESREG ::CALL=RESREG TRAP+14(104414) RESTORE RO-RS ROUT INE 

3201 .SBTTL POWER DOWN AND UP ROUTINES 

(2) MARAASAESLALSZALALAALESEL ASSESSES ESE SESE CCE ECS ECCS SERRE E SS ESE E ESSE SY 

(1) “POWER DOWN ROUT INE 

(1) 040476 012737 040654 000024 $PWRDN: MOV ASILLUP,a#PWRVEC ;;SET FOR FAST UP 

(1) 940504 012737 000340 000026 MOV #340, aMPWRVEC+2 ;:PRIO:7 

(3) 040512 010046 MOV RO,-(SP) ;sPUSH RO ON STACK 

(3) 040514 010146 MOV R1,-(SP) “PUSH R1 ON STACK 

(3) 040516 010246 MOV R2,~(SP) ::PUSH R2 ON STACK 

(3) 040520 010346 MOV R3,-(SP) + PUSH R3 ON STACK 

(3) 040522 010446 MOV R4,-(SP) + PUSH R& ON STACK 
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3203 
3204 
3205 
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010546 


140340 


040476 
000340 


000020 
034130 


MACY11 


000024 


000024 


000024 
000026 


000002 


053517 
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godt 
R DOWN AND UP ROUTINE 
MOV R5,-(SP) 7zPUSH RS ON STACK 
MOV aswR, -(SP) ; sPUSH @SWR ON STACK 
MOV SP, $SAVR6 sSAVE SP 
ay #SPWRUP, @APWRVEC™ 1; SET UP VECTOR 
BR 72 7 HANG UP 
FREAK EERE REE EERE REE EERE EEE EERE EREEEE KEK KH 
“POWER UP ROUTINE 
$PWRUP : MOV MSILLUP ,Q#PWRVEC ;;SET FOR FAST DOWN 
MOV SSAVR6, SP 3iGET SP 
CLR SSAVR6 ;zWAIT LOOP FOR THE TTY 
1$: INC $SSAVR6 ;zWAIT FOR THE INC 
BNE 1$ : WORD 
MOV (SP) +,aSWR 3zPOP STACK INTO aSwR 
MOV (SP)+,R5 7zPOP STACK INTO R5 
MOV (SP)+,R4 3zPOP STACK INTO R4 
MOV (SP) +,R3 3;POP STACK INTO R3 
MOV (SP)+,R2 3zPOP STACK INTO R2 
MOV (SP)+,R1 ie State INTO R1 
MOV | sill sPOP STACK INTO RO 
MOV #SPWRDN, PWRVEC” igSET UP THE POWER DOWN VECTOR 
MOV #340, BAPURVEC?S R10:7 
TYPE [REPORT THE POWER FAILURE 
SPWRMG: .WORD #PWRMSG POWER FAIL MESSAGE POINTER 
MOV (PC) +, (SP) 7zRESTART AT RESTRT 
SPWRAD: .WORD RESTRT 3 RESTART 
BIC #20,2(SP) 77 CLEAR ‘'T’’ BIT 
a $TBIT ; CLEAR THE ‘'T'’ BIT FLAG 
$ILLUP: HALT 23 THE POWER UP SEQUENCE WAS STARTED 
BR -~2 a3 a he THE POWER DOWN WAS COMPLETE 
$SAVR6: 0 ;PUT THE SP HERE 
PWRMSG: .ASCIZ <12><15>? POWER FAILURE - RESTARTING ?<12><15> 


- EVEN 


SEQ 0101 
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3207 -SBTTL ERROR MESSAGES, DATA HEADERS-TABLES & FORMATS 
3208 040724 047125 054105 042520 EMI: eASCIZ /UNEXPECTED CPU TRAP TO LOC. 004/ 
040732 052103 042105 041440 
040740 052520 052040 040522 
040746 020120 047524 
040754 041517 020056 030060 
040762 000064 
3209 040764 047125 054105 042520 EM2: -ASCIZ /UNEXPECTED MEM. MGMT. TRAP TO LOC. 250/ 


ag (C3 052103 042105 rg cee 


04 000 
3210 041033 120 044522 051117 EMS: eASCIZ /PRIORITY BITS SET WRONG IN PSW/ 
041040 952111 020131 044502 
041046 051524 051440 052105 
041054 053440 047522 Bes 2i8 


000 
047515 042504 041040 EM4: eASCIZ /MODE BITS SET WRONG IN PSW/ 


Nae 
NO 

S 

—f 

LAS 

NO 

oO 

NM 

So 

— 

— 

o 


3211 


000 
040525 020114 EMS: -ASCIZ /DUAL ADDRESSING BETWEEN HI&LO BYTES OF PSW/ 


3212 1 
042101 051104 051505 
452 040 


NOU Wrn 
So 
Ww 
Ww 
Ww 
™N 
WwW 


3213 EM6: ~ASCIZ /KERNEL R6 CHANGED BY WRITING USER R6/ 


NM 
23 
2 
MN 

seus 
WNOOCOVUW R 
g 
x 
™Nm 
NM 
2 
on 
— 
Oo 
Wa 


moa 
ms 
aR 
Pe 
wa 
pad 
SPS 
PS 
oO 
On 
RL 
LO 
wa 
wR 


3214 101 046440 046505 EM7: eASCiZ /A MEMORY MGMT. REG. TIMED OUT/ 


Mronononopoprvy 


046511 
042105 047440 052125 


o663e2 040515 E—M10: .ASCIZ /SUMMARY OF MEM. MGMT. REG. TIMEOUTS/ 


my 


3215 


043505 020056 044524 
saat 3 052517 051524 


115 046505 020056 EM11: _ .AS /MEM, MGMT. REG. T 
043515 985115 poboee C1Z E GM EG. WOULD NOT CLEAR/ 
042522 027107 053440 


3216 


PRERRRRRRRRRRRRRRRKRRRRRRRRRERRRRERER 


VRNAKONRAOWNRAOUARAS 
° 
nm 
i 
° 
N 
° 
Ww 
nN 
® 
So 


RARKKUNISSS 
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REVRAS 


7 

? 
3217 2 046505 020056 EM12: .ASCIZ /MEM. MGMT. REG. BITS NOT SET CORRECTLY/ 
2 
1 


aa tae 
ROR RE 
Nm 


1 
3218 pelle? 020060 043105 EM13: .ASCIZ /SRO EFFECTED BY WRITE TO PSW/ 


ue 

Nm 

5 

Oo 

OT 
on 
—— 
WOAW 
=Wwo— 
So 

aR 
—M 
_—— 
MO 
NV 


3219 


Sas 
S 
5 


MMMM AAI 
Wr 
NSO 
So 
wi 
_ 
R 
o 
g 
R 


ROVE 
R 
oO 
™m 
oO 
— 
So 
N 
® 


000 
123 athe 4 042040 E—M14:  .ASCIZ /SR1 DID NOT READ ALL ZEROS/ 


3220 052504 Oe S55 040440 EM15:  .ASCIZ /DUAL ADDRESSING BETWEEN BYTES OF PAR OR PDR/ 


MWY 


ue 
— 
nN 
ares 
Ns= 
On 
° 
x 
} 
_ 
mu 
iN) 
2° 
Ww 
Nn 
“4 
NO 
o-— 


3221 EM16:  .ASCIZ /DUAL ADDRESSING BETWEEN PAR-PDR'S/ 


BERS 
a 
2 
R 
&: 
e 


Oo 
RRRE 
Nwms 
oS 
ia) 
Ww 
Ww 
nN 
Nm 
So 
NM 
On 
_—WIW 
Nm 
Nm 


3222 044120 051531 th EM17:  .ASCIZ /PHYSICAL ADDRESS FORMED WRONG/ 


YNO 

RS 

ARR 

—No 

= 
SNANS 

R 

So 

Nm 

So 

por 

R 


= 


3223 EM20: .ASCIZ /PHYS. ADDR. FORMED WRONG IN RELOCATE MODE/ 


ANN 
PN 
RR 
VS 
Oo 
— 
3s 
o = 
Retratet 
NRE 
EIS 
ss 
ouwm 
Uno 


RRRRERRRRRRRRRRKRKRRRKRRRRKRKRRRKKRRRKEKKRKRKREKKKEK 
rN 


— ot 6 I = on oS 3 2) I SS SS SS SS Sh En) SI I SS 2 I tS 2 SS ts os SS 


R 
NS 
Ww 
mL 
R 
n 
* 
~ 
o 
oO 
NM 
So 
— 
— 
io 
R 
MN 
Ww 
Nm 
N 


1760 047514 040503 042524 
046440 000105 
3224 othe: eM 044502 poise EM21: .ASCIZ /W-BIT DID NOT GET SET IN PDR/ 


000 
3225 042031 127 0410 ae EM22: .ASCIZ /w-BIT SET IN MORE THAN ONE PDR/ 


5 042120 
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042066 1 
3226 1 04450 saat EM23:  .ASCIZ /W-BIT NOT CLEARED BY WRITING TO PDR/ 


/WRITING SRO SET W-BIT IN KIPDR7/ 


/W-BIT GOT SET DURING TIMEOUT ABORT/ 


/MEMORY MGMT. ACCESS ABORT DID NOT OCCUR/ 


ACCESS ERROR DID NOT ABORT INSTRUCTION/ 


/SRO DID NOT REPORT ACCESS ERROR CORRECTLY/ 


/DID NOT LOCKUP CORRECT VIRTUAL ADDR./ 


/PAGE LGTH. ABORT OCCURRED WHEN IT SHOULDN'T HAVE/ 


_—=—0O- Oo — = 
MINOOUN— s&s 


053101 





CJKDACO KTF11=AA MMU 
CJKDAC.P11 


3234 


3235 


3236 


3237 


3238 


3239 


3240 


3241 


3242 


DIAG 
12-MAR=80 07:56 


= 
MM 
Ws 


WWWWWNINWWAG 
RSVRSESN 


x 


S 
ne 
VKAS 


051117 
051117 


MERE AR 
oOefn--— = 


BSSEEES —WW 


So 
N 
So 


MACY11 30A(1052) 
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ERROR MESSAGES, DATA HEADERS-TABLES & FORMATS SEQ 0105 


EM33: 


EM4O: 


EM41: 


EM42: 


EM43: 


EM44: 


EM4S: 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 





/PAGE LGTH. ABORT DID NOT OCCUR WHEN IT SHOULD HAVE/ 


/SRO DID NOT REPORT PAGE LGTH. ABORT CORRECTLY/ 


/SRO OR SR2 CHANGED BY A SECOND ABORT/- 


/SRO OR SR2 WERE NOT ‘RESET’ BY A RESET/ 


/SR2 NOT TRACKING CORRECTLY/ 


/DID NOT TRAP THRU KERNEL SPACE/ 


/KT ERROR NOT SERVICED ON TIMEOUT ERROR/ 





/SRO OR SR2 CHANGED BY TIMEOUT ERROR/ 





/ERROR DURING ‘DOUBLE ERROR** (KT & TIMEQUT)/ 





Cc 9 
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043246 052504 044522 043516 
043254 021040 047504 041125 
043262 042514 042440 051122 
043270 051117 020042 045450 
043276 020124 020046 044524 
3304 042515 052517 024524 
043312 000 
3243 043313 115 050106 020111 EM46: .ASCIZ /MFPI INSTRUCTION PUSHED WRONG DATA/ 
043320 7111 0521235 052522 
043326 052103 047511 020116 
3334 052520 044123 2105 
043342 053440 047522 043516 
043350 2040 052101 101 
3244 043356 052115 044520 044440 EM47: .ASCIZ /MTPI INSTRUCTION LOADED WRONG DATA/ 
3364 051516 051124 041525 
043372 044524 047117 046040 
3400 040517 042504 020104 
3406 051127 047117 020107 
043414 040504 040524 000 
3245 043421 123 040524 045503 EMSO: eASCIZ /STACK NOT PUSHED BY MFPI-MTPI/ 
043426 7040 052117 05 
3434 051525 042510 020104 
943442 054502 04 050106 


6440 
043450 ay 3! 052115 044520 
3246 Rte. 113 051105 oie ie EM51:  .ASCIZ /KERNEL PAGE ACCESS INSTEAD OF USER: MFPI-MTPI/ 


000 
3247 Peters 127 047522 043516 EMS52: .ASCIZ /WRONG PDR'S REFERENCED WHILE IN RELOCATE MODE/ 


7111 040 0461 
1517 052101 020105 
53248 O¢3613 113 950106 20104 EMSS: .ASCIZ 
: ASC /MFPD INSTRUCTION PUSHED WRONG DATA/ 

043620 7111 052123 052522 
043626 052103 75 020116 
043634 052520 4123 042105 
043642 053440 5 043516 


047522 
043650 042040 052101 000101 


3249 043656 052123 041501 ‘4 EMS54:  .ASCIZ /STACK NOT PUSHED BY MFPD-MTPD/ 


mwEr— 
SOOW 


3250 043714 Benaee 020122 05 EMS5: .ASCIZ /PAR OR PDR CHANGED BY A RESET/ 


CJKDACO KTF11-AA MMU DIAG 


CJKDAC.P11 


3251 


3252 
3253 


3254 


3255 


3256 


3257 


3258 


3259 


3260 


12-MAR-80 07:56 


101 
051523 


04252 
02012 
0 
1 
2 


na wis 
W-OnNNW 


BRARRRRGRARE FEVER 


051440 


5 
020117 


051101 


042104 
024040 


MACY11 30A(1052) 


040 
Revie 


SSsPe 
wv 
—N—NOAN 


RR VRGRT SR 


EMS6: 


DH1: 


DH2: 


DH3: 


DH?7: 


DH10: 


DH11: 
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12=MAR-80 08:00 PAGE 1-93 
ERROR MESSAGES, DATA HEADERS=TABLES & FORMATS 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCII 


-ASCIZ 


-ASCII 


-ASCIZ 


/PSW CHANGED BY AN RTI IN USER MODE/ 


/OLD PC OLD PSW R6 WAS TESTNO ERRORPC/ 


/OLD PC OLD PSW R6 WAS SRO SR2 TESTNO ERRORPC/ 


/WROTE READ TESTNO ERRORPC/ 


ADDRESS TESTNO ERRORPC/ 


/REGISTER-ADDRS NUM OF/<CRLF> 


/AND-ED OR-ED TIMOUTS TESTNO ERRORPC/ 


/REGISTR READ READ~(BINARY) /<CRLF> 


/ADDRESS (OCTAL) 5432109876543210 TESTNO ERRORPC/ 


SEQ 0107 


2 
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044416 040524 024514 032440 
030462 034 


000 
3261 044465 122 043505 DH12:  .ASCII /REGISTR WROTE READ READ=(BINARY)/<CRLF > 


oon] NNOFLSO 


R 


eASCIZ /ADDRESS (OCTAL) (OCTAL) 5432109876543210 TESTNO ERRORPC/ 


—~—N =O 
-——m oO 
wn = 


044530 200 
3262 044533 101 042104 
044540 


044620 000 
3263 044625 22 eg tag 020104 DH13: .ASCIZ /READ TESTNO ERRORPC/ 


044640 
044646 051122 051117 041520 

3264 044655 120 051101 050055 DH16: .ASCII /PAR-PDR PAR-PDR/<CRLF > 
044662 050040 


200 
3265 044675 103 042514 UY eASCIZ /CLEARED EFFECTD EXPECTD RECEIVD TESTNO ERRORPC/ 


3266 Reetes 120 04718 044523 DH17: .ASCII /PHYSICL VIRTUAL/<CRLF> 


044770 200 
3267 og the 042104 at eASCIZ /ADDRESS ADDRESS KIPAR4 TESTNO ERRORPC/ 


& 

Ww 

> 

So 

Z SLVRR 
* 

mo 


3268 ; DH20: ASCII /PHYSICL PAR 4 PAR 5/<CRLF> 


geeee 
So 

ie 

R 

So on 
egaene 


3269 04 042522 -ASCIZ /ADDRESS VBA VBA PAR 4 PAR 5 PSw TESTNO ERRORPC / 


 - 
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051523 
020040 


R 


ARSVEESVEKS 


/PDR VIRTUAL/<CRLF > 


8 


/TESTED ADDRESS TESTNO ERRORPC/ 


Set 


051117 
044440 : ° /PDR IN PDR VIRTUAL/ 


rMronrr 
RSUSU KR 


“N 
Nm 


ZERROR TESTED ADDRESS TESTNO ERRORPC/ 


/PDR TESTNO ERRORPC/ 


S 
ms 


/PDR WAS EXPECTD TESTNO ERRORPC/ 


04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
045 
04 


TESTNO ERRORPC/ 


/SRO WAS EXPECTD PDR 4 = PSw TESTNO ERRORPC/ 


020062 /SR2 WAS EXPECTD PDR 4 = PSw TESTNO ERRORPC/ 
020123 054105 





*. 
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045576 052103 020104 042120 
045604 0064 


75 
3279 045642 BSriee peruse 02 DH32: .ASCIZ /V.B.A. KIPDR4 SRO WAS SR2 WAS TESTNO ERRORPC/ 


DH33: -ASCIZ /V.B.A. KIPDR4 TESTNO ERRORPC/ 


MOOCONMNMNMNNO 
O-—WNUYIWNWWO— 


52 
3280 045722 027126 027102 02 
02004 4513 


045760 00010 
3281 045762 027126 027102 027101 DH34: .ASCIZ /V.B.A. KIPDR4 SRO WAS EXPECTD TFSTNO ERRORPC/ 
20040 5 042120 
046034 5 00010 
3282 046042 027126 ner Oe 5159 DH35: .ASCIZ /V.B.A. KIPDR4 SR2 WAS EXPECTD TESTNO ERRORPC/ 


5 
3283 oles 0511235 020062 040527 DH36: .ASCIZ /SR2 WAS EXPECTD TESTNO ERRORPC/ 
020040 

046152 051105 047522 050122 

046160 000103 
3284 046162 044506 051522 020124 DH37: .ASCII /FIRST ABORT SECOND ABORT/<CRLF > 

046170 041101 051117 020124 

020040 020040 


200 
3285 rat 123 030122 053440 -ASCIZ /SRO WAS SR2 WAS SRO WAS SR2 WAS TESTNO ERRORPC/ 


041520 


CJKDACO KTF11=AA MMU D 
CJKDAC.P11 


3286 


3287 


3288 


3289 


3290 


3292 


3293 
3294 


3295 


3296 


046277 
304 


1o-MAR=BO 07: 56 


051122 


MACY11 30A(1052) 


041505 
020040 


020040 
053111 


100051 
053111 
020040 
020040 
051123 
020040 


DH40: 


DH44: 


DH45: 


DH46: 


9 
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eASCIZ 


ASCII 


eASCIZ 


-ASCII 
-ASCII 


-ASCII 


ASCII 


-ASCiZ 


-ASCII 


-ASCIZ 


/PSW WAS R6 WAS TESTNO 


-ASCIZ /SRO WAS SR2 WAS TESTNO ERRORPC/ 


ERRORPC/ 


EXPECTED RECEIVED/<CRLF> 


/SRO SR2 SRO WAS 


/EXPECTED:/<CRLF > 
/PSW PC SRO 


4170017 =(3$+4) 020147 


/RECEIVED:/<CRLF> 


/PSW PC SRO 


/DATA DATA/<CRLF > 


/EXPECTD RECEIVD TESTNO 


SR2 WAS TESTNO ERRORPC/ 


SR2/<CRLF> 


(3$)/<CRLF> 


SR2 TESTNO ERRORPC/ 


ERRORPC/ 


SEQ 0111 


I 9 
CJKDACO KTF11-AA MMU D MACY31 30A(1052) 12-MAR-80 08:00 PAGE 1-98 
CJKDAC P11 1D-MAR-B0 07: 56 ERROR MESSAGES, DATA HEADERS-TABLES & FORMATS SEQ 0112 


046760 
3297 046763 


000 
051505 047124 DH50:. .ASCIZ /TESTNO ERRORPC/ 
046770 020117 042440 051122 
046776 051117 041520 000 
3298 047003 123 030122 053440 DH51: .ASCIZ /SRO WAS SR2 WAS TESTNO ERRORPC/ 
047010 051501 051440 031122 
047016 34 051501 2040 
047024 051505 047124 020117 
047032 042440 051122 051117 
047040 041520 000 
3299 047043 120 054510 4523 DH52: .ASCI] /PHYSICL PAR 4/<CRLF> 
047050 046103 050040 051101 
047056 032040 200 
3300 Get 101 042104 042522 -ASCIZ /ADDRESS V.B.A. PAR 4 SRO WAS SR2 WAS PSwW TESTNO ERRORPC/ 


5 000 
3301 perier 120 053523 053440 DH56: .ASCIZ /PSW WAS EXPECTD TESTNO ERRORPC/ 


047210 042440 051122 051117 
000 


3302 F 

5505 047222 - .EVEN 

3305 047222 001266 001270 001264 DT1:  .WORD _TRAPPC,, TRAPPS\WASR6, TESTNO, SERRPC 0 
7230 001262 001116 000000 

3306 047236 001266 001270 001264 DT2:  .WORD _TRAPPC,, TRAPPS,WASR6,WASSRO,WASSR2, TESTNO, SERRPC , 0 
047244 001272 001274 001262 


3307 047256 001162 001164 001262 DT3: -WORD $REGO,$REG1,TESTNO,$ERRPC 0 
0472 001116 000000 

3308 047270 001162 001262 001116 DT7: -WORD $REGO,TESTNO,$ERRPC,0 
047276 000000 

3309 047 001300 001302 001304 DT10: .WORD ANDADR,ORADR,TONUM, TESTNO, SERRPC ,0 
047 001262 001116 000000 

3310 047314 001162 001164 001164 DT11: .WORD S$REGO,$REG1,$REG1,TESTNO,$ERRPC 0 
047322 001262 001116 000000 

3311 047330 001162 001164 001166 DT12:  .WORD $REGO,$REG1,$REG2,$REG2,TESTNO,$ERRPC ,O 
047336 901166 001262 001116 
047344 000000 

3312 047346 001162 001262 001116 DT13: .WORD $REGO,TESTNO,$ERRPC,0 
047354 000000 ; 

3313 047356 001162 001164 001174 DT16: .WORD $REGO,$REG1,$REGS,$REG2,TESTNO,SERRPC .0 
047364 001166 001262 001116 
047372 000000 

3314 047374 001312 001306 001172 DT17: .WORD PBALO,VIRT1,$REG4,TESTNO,$ERRPC .0 
047402 001262 001116 000000 
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3315 047410 001312 001306 001310 DT20: .WORD PBALO,VIRT1,VIRT2,$REG4,$REG5S,$TMPO, TESTNO, SERRPC ,0 
047416 001172 001174 001176 
047424 001262 001116 000000 
3316 047432 001174 001170 001262 DT21: .WORD $REG5S,$REG3,TESTNO,$ERRPC,0 
047440 001116 000000 
3317 047444 001162 001174 001170 DT22: .wORD  $REGO,$REGS,$REG3,TESTNO,$ERRPC,0 
047452 001262 001116 000000 
3318 047460 001174 001262 001116 DT23: .WORD $REG5,TESTNO,$ERRPC,0 
047466 000000 
3319 047470 001166 001164 001262 DT24: .WORD $REG2,$REG1,TESTNO,SERRPC,0 
047476 001116 000000 
3320 047502 001166 001176 001262 DT26: .WORD $REG2,$TMPO,TESTNO,$ERRPC,0 
047510 001116 000000 
3321 047514 001272 001170 001166 DT30:  .WORD WASSRO,$REG3,$REG2,$TMPO,TESTNO,$ERRPC,0 
ogee? 001176 001262 001116 


047530 
3322 047532 001274 001172 001166 DT31: .WORD WASSR2,$REG4,$REG2,$TMPO, TESTNO,$ERRPC ,0 
047540 dbs | 001262 001116 


3323 047550 001162 001172 001272 DT32: .WORD $REGO,$REG4,WASSRO,WASSR2, TESTNO,SERRPC ,0 
047556 001274 001262 001116 


3324 047566 001162 gorirs 001262 D733: .WORD $REGO,$REG4,TESTNO,$ERRPC 0 


3325 047600 001162 001172 001272 DT34: .WORD $REGO,$REG4,WASSRO,$REG2,TESTNO,$ERRPC ,0 
047606 001166 001262 001116 


000000 
3326 047616 001162 001172 001274 DT35: .WORD $REGO,$REG4,WASSR2,$REG3,TESTNO,SERRPC 0 
047624 001170 001262 001116 


047632 
3327 047634 001274 001164 001262 DT36: .WORD WASSR2,$REG1,TESTNO,SERRPC,0 
047642 001116 000000 


3328 047646 001176 001202 001272 DI37: .WORD $TMPO,$TMP2,WASSRO,WASSR2,TESTNO, SERRPC ,0 
047654 001274 001262 001116 


047662 000000 
3329 7 001272 001274 001262 DT40: .WORD WASSRO,WASSR2,TESTNO,$ERRPC,0 
047672 001116 000000 
3330 047676 001164 001166 001262 DT42: .WORD $REG1,$REG2,TESTNO,$ERRPC,9 
047704 001116 000000 
3331 047710 001162 001164 001272 DT44: .WORD S$REGO,$REG1,WASSRO,WASSR2,TESTNO,$ERRPC ,0 
047716 001274 001262 001116 
047724 000000 
3332 047726 001164 001170 001272 DT45: .WORD $REG1,$REG3,WASSRO,WASSR2,TESTNO,$ERRPC ,0 
047734 001274 001262 001116 
047742 000000 
3333 047744 001162 001164 001262 DT46: .WORD $REGO,$REG1,TESTNO,SERRPC.0 
047752 001116 000000 
3334 047756 001262 001116 000000 DI50: .WORD TESTNO,$ERRPC,0 
3335 047764 001272 001274 001262 DT51: WORD WASSRO.WASSR2.TESTNO, SERRPC 0 
047772 001116 000000 
3336 047776 001312 001306 001172 DT52: .WORD PBALO,VIRT1,$REG4,WASSRO,WASSR2,$TMPO,TESTNO, SERRPC ,0 
05 001272 001274 001176 
050012 001262 001116 000000 
3337 050020 001164 001166 001262 DIT56: .WORD $REG1,$REG2,TESTNO, $ERRPC .0 
050026 001116 000000 


3338 
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3339 000 DF1: -BYTE 0,0,0,0,0 


3340 000 DF2: -BYTE 0,0,0,0,0,0,0 
000 


000 DF3: -BYTE 0,0,0,0 


000 DF?7: -BYTE 0,0,0 
001 DF10: -BYTE 0,0,1,0,0 


DF11: .BYTE 0,0,2,0,0 
DF12: .BYTE 0,0,0,2,0,0 


DF13: .BYTE 0,0.0 
DF16: .BYTE 0,0,0,0,0,0 


DF17: -BYTE 3,0,0,0,0 
DF20: .BYTE 3,0,0,0,0,0,0,0 


3341 


3342 
3343 


3344 
3345 


3346 
3347 


3348 
3349 


3350 
3351 


3352 
3353 


3354 
3355 


3356 
3357 


3358 


DF21: -BYTE 0,0,0,0 
DF22: .BYTE 0,0,0,0,0 


DF 23: -BYTE 0,0.0 
DF24: .BYTE 0,0,0,0 


DF30: .BYTE 0,0,0,0,0,0 
DF46: .BYTE 0,0,0,0 


DF50: .BYTE 0,0 
DF51: .BYTE 0,0,0,0 


DF52: .BYTE 3,0,0,0,0,0,0,0 


3359 

050176 
3360 
3361 


DF56:  .BYTE 0,0,0,0 


000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
002 
000 
000 
000 
003 
000 
003 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
003 
000 
000 
000 
000 


«END 
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805* 813* 819* 825* 831* 3309 


31934 


BITOO = 
BIT01 = 000002 





CJKDACO KTF11=AA MMU DIAG 
12=MAR-80 07:56 


CJKDAC.P11 
BITO2 = 000004 
BITO3 = 000010 
BITO4 = 000020 
BITOS = 000040 
BITO6 = 000100 
BITO7 = 000200 
BITO8 = 000400 
B1ITO9 = 001000 
BIT1 = 000002 
BIT10 = 002000 
BIT11 = 004000 
BIT12 = 010000 
BIT13 = 020000 
BIT14 = 040000 
BIT15 = 100000 
BIT2 = 000004 
BITS = 000010 
BITS = 000020 
BITS = 000040 
BIT6 = 000100 
BIT? = 000200 
BIT8 = 0004 
BIT9 = 001 
BPTVEC= 000014 
CKSWR = 104410 
CMPREG 035260 
SG 036645 
CNTRLC 036566 
CR = 000015 
CRLF = 000200 
DALTB1 026764 
DALTB2 027020 
DALTB3 027332 
DAL TB4 ‘if 
DDISP = 177570 
DF1 50032 
DF10 050055 
DF11 50062 
DF12 50067 
DF 13 050075 
DF16 050100 
DF17 050106 
DF2 050037 
DF 20 050113 
DF 21 050123 
DF 22 050127 
DF 23 50134 
DF 24 050137 
DF3 50046 
DF 30 50143 
DF46 050151 
DF 50 050155 
DF51 050157 
DF52 050163 
DF56 050173 


32004 
1148 


3192 
3293 


M9 
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1156 30634 


3257 3259 3261 3264 3266 
3295 3299 


408 432 449 462 468 


297 14 
438 443 456 488 498 
33554 


3268 


474 
33544 


3270 


33534 


3284 


3288 


SFQ 0116 


3290 


N 9 
CJKDACO KTF11=AA MMU DIAG MACY11 30A(1052) 12=MAR=80 08:00 PAGE 2-2 


CJKDAC .P11 12=MAR-80 07:56 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0117 
OF7 050052 303 33424 
DH1 044015 265 32534 
DH10 044245 307 32574 
DH11 434 314 547 32594 
DH12 044465 321 340 32614 
DH13 044625 328 334 32634 
DH16 044655 347 32644 
DH17 044755 354 32 
4065 271 32544 

DH20 045045 361 32684 
DH21 045173 368 327 
DH22 045253 375 32728 
DH23 045352 382 478 32744 
DH24 045402 388 394 32754 
DH26 045442 400 406 64 

044155 277 283 289 295 32554 
DH30 045502 412 32774 
DH31 045562 418 2784 
DH32 642 424 32794 
DH33 045722 430 32804 

045762 436 32814 
DH35 046042 441 32824 
DH36 046122 447 466 32834 
DH37 046162 453 32844 

046277 460 
DH42 046337 472 32874 
DH44 046377 485 32884 

5 046511 492 32 

DH46 046706 502 509 534 32954 
DH50 046763 516 541 32978 
DH51 047003 522 32984 
DH52 043 528 32994 
DH56 047161 554 33014 
DH7 044215 301 32564 
DISPLA 001142 2614 626* 2896*  2897* 
DISPRE 000174 2584 62 
DOAGIN 034030 2861 28728 
DSWR = 177570 214 261 626 
DT1 047222 266 33054 
DT10 7300 309 33094 
DT11 047314 316 549 33104 
DT12 7330 323 342 33114 
DT13 7346 329 335 33124 
DT16 047356 349 331 
DT17 047374 356 33144 
DT2 7236 272 3 
DT20 047410 363 33154 
DT21 047432 370 3 
DT22 047444 377 33174 
DT23 047460 383 9 33184 
DT24 047470 389 395 33194 
DT26 047502 401 407 33204 
DT3 047256 278 284 290 296 33074 
DT30 047514 413 33214 


B 10 
CJKDACO KTF11=AA MMU DIAG MACY11 30A(1052) 12=-MAR=80 08:00 PAGE 2-3 
CJKDAC.P11 12-MAR-80 07:56 CROSS REFERENCE TABLE == USER SYMBOLS 


536 33334 
33344 


446 3232n 
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CJKDAC P11 12-MAR-80 07:56 CROSS REFERENCE TABLE == USER SYMBOLS 


043714 


72306 
72310 


172312 
172314 
172316 
000012 


coco; 


MNMMNMoNoNnonofnonoennhv— 


" 
RORO 
SSS 





) A, 
CJKDACO_KTF11-AA MMU DIAG MACY11 30A(1052) 12=MAR-80 08:00 E 2-5 
CJKDAC.P11 12=MAR-80 07:56 CROSS REFERENCE TABLE == USER SYMBOLS 


PS = 177776 
PSW == 177776 679 683* 704 709* 
74 0 256 0 1378 


= 177572 
2002 
2739* 
177574 2 1 
177576 2 55 1 1862 


172516 
001100 


626 629 
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CJKDAC P11 12=MAR=80 07:56 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0121 
TBIT = 000020 254 2998 3003 3016 
TBITPS 001276 2614 640* 3001* 3016 3018 3019s 
TBITVE= 000014 214 626* 
TESTNO 00126 2614 2897* 3305 3306 3307 3308 3309 3310 3311 3312 3313 3314 3315 
3316 3317 3318 3319 3320 3321 3322 3323 3324 3325 3326 3327 3328 
3329 3330 3331 3332 3333 3334 3335 3336 3337 
TIMERR 002076 5714 633 794 813 819 825 831 1509 2092 2163 2235 
TIMFLG 002100 572# 584* 638* 
TKVEC = 000060 214 
TOF F 035100 1459 1466 1480 2065 2184 29984 
TON 035134 1459 1466 1511 2094 2240 30164 
TONUM = 001304 2614 783* 9 806* 813* 819* 825* 831* 3309 
TPVEC = 000064 214 
TRAPPC 001266 2614 580* 586 608* 617 1434* 1450 1747* 1757 1859* 1869 2408* 2418 
2578* 2588 2735* 2745 3305 3306 
TRAPPS 001270 2614 581* 585 609* 616 1435* 1449 1748* 1756 1860* 1868 2409* 2417 
2579* 2587 2736* 2744 3305 3306 
TRAPVE= # 626* 
TRIVEC= 14 214 
TST1 020546 6524 
TST10 21516 819 8244 
TST11 ~=—021650 825 8304 
TST12 22002 831 8434 
TST13 = 022144 8984 
TST14 022202 9194 
TSTIS = 022252 933 9454 
TST16 =©022370 98 
TST17 = 022512 10334 
TST2 020620 6744 
TST20 22642 10774 
TST21 §=022772 11244 
TST22 023176 11704 
TST23 023346 12364 
TST24 024076 13154 
TST25 024466 13524 
TST26 025204 1432 14574 
TST27 025406 14644 
020704 6994 
TST3O0 ©025614 14784 
TST31 025762 15334 
TST32 026256 16054 
TST33 026466 16974 
TST34 027050 1763 18114 
TST35 © 027416 1875 19264 
TST36 ©0276 10 19754 
TST37 = =—.030212 20644 
14 021026 7378 
TST40 030400 21024 
TST41 030462 21344 
TST42 030632 21834 
TST435 = 031154 22604 
TST44 032022 2405 24334 
TST45 032702 2575 26044 
TST46 33446 2732 27554 
TST47 33552 27 


0 974 
TST5 021074 744 7758 


F onte 
CJKDACO KTF11=AA MMU DIAG MACY11 yh at 12=MAR=80 08:00 rev 


CJKDAC.P11 12-MAR-80 07:56 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0122 
‘ 

TST6 021232 795 8128 

TST7 021364 813 8184 

TYPBN = 406 2962 32004 

TYPDS = 104405 2850 2858 2956 3184 32004 

TYPE = 104401 629 2847 2851 2859 2897 2919 2934 2936 2939 2941 2970 2975 2981 
3165 3180 3183 3192 3194 3195 3196 32004 3201 

TYPOC = 104402 2925 2950 3165 3182 32004 

TYPON = 1044 32004 

TYPOS = 104403 32004 

UIPARO= 177640 228 825 976 1066 1153 1209 1359 2069* 2088*  2277* 3048 3106 3143 

UIPARI= 177642 Cee = =—2278* 

UIPAR2= 177644 22H = =2279* 

UIPARS= 177646 cfr = 14 1538* 2185* 2280+ 

UIPAR4= 177650 22h = =1376* = =1401* 1428* 1539% 2186* 2286* 2437% 2615* 

UIPARS= ~ 77652 cch §=61377* = =1402* 1429* 

UIPAR6= 177654 een 

UIPAR7= 177656 een 974 1064 2281* 

Ul 77600 eon 831 1020 1109 1145 1197 1366 1466 2274 2608 3044 3092 

UIPDR1= 177602 22n 

UIPDR2= 177604 22h 

UIPDR3= 177606 224 = =1541* 2187* 2238* 

UIPDR4= 177610 Cech = 1374* = 1403* 1548* 1614* 2188* 2435% 2622* 

UIPDRS= 177612 Coch =6—1375* = 1404* 

UIPDR6= 177614 2en 

UIPDR7= 177616 224 §=1018 1107 

USESTK= 000700 284 741 2073 2090 2206 2300 2453 2625 2762 2785 

VIRT1 001306 2614 1251" 1252% 1253* 1270" 1293* 1319" 1320* 1321* 1322 1386* 1394 1439* 
3144 3150 3314 3315 3336 

VIRT2 001310 2614 1385* 3315 

WASR6 001264 2614 582* 610* 3305 3306 

WASSRO 001272 2614 611* 1441* 1565* 1567 1631* 1633 1728* 1731 1749* 1840* 1843 1861* 
2007* 2009 2023* 2024 2146* 2149 2200* 2219 2410* 2580*  2737* 3306 3321 
3323 3325 3328 3329 3331 3332 2335 3336 

WASSR2 001274 2614 612* 855* 857 876* 877 1442% 1566* 1574 1632* 1640 1729* 1738 
1750* 1841* 1850 1862* 1941* 1942 1980* 1982 1989* 1991 2008* 2012 2027* 
2028 2038* 2040 2147* 2156 2201* 2222 2411* 2581* 2738* 3306 3322 3323 
3326 3327 3328 3329 3331 3332 3335 3336 

WBIT = 000100 264 81459 1466 

THD 000204 2604 

SASTAT= *eeee% U 3193 

$ATYC 037224 31934 

$ATY1 037200 31934 

SATYS 037206 3192 31934 

SATYS 037216 2897 31934 

SAUTOB 001134 2614 629* 3165 

$BDADR 001122 2614 

SBDDAT 001126 2614 

$BELL 001216 2614 2897 

$BIN 037520 31944 

SCHARC 037174 31924 

SCKSWR 035574 31654 3200 

$SCLR.T 034016 2863 

SCMTAG 001100 2614 626 

$CM1 = 000006 261 

$CM2 = 000014 2614 

$CM3S = 000006 2614 


CJKDACO KTF11=AA MMU DIAG 


CJKDAC .P11 


12-MAR=80 07:56 


2897 


2919 


2936 


3193 


2941 
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2981 


3165 


3192 


SEQ 0123 


3314 
3327 


H 10 
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DAC .P11 12=-MAR=80 07:56 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0124 
SMADR1 001260 261% 1413 
SMAIL. 001226 260 2614 626 629 2896 2897 3192 
SMAMS1 001256 261 
SMBADR 0002 2604 
SMFLG 037442 31934 
036554 31654 
SMSGAD 001242 2614 3193* 
SMSGLG 001244 261% 3193* 
SMSGTY 001226 1 574* 602* 3193* 
036543 31654 
SMTYP1 001257 2614 
SMXCNT 034414 28964 
SNULL_ 001154 2614 3192 
$SNWTST= 000001 6524 6744 6994 7378 7754 8124 8184 8244 8304 8434 8984 9194 9454 
9 10334 10774 11244 1170 12364 13154 13524 14574 14644 14784 15334 16054 


884 
16974 18114 1926 19754 20644 21024 21344 21834 22604 24334  2604# 27554 27978 


SOCTVL 04037 

SOMODE 037746 31954* 

SOVER 0344 28964 

SPASS 001234 2614 626* 2835* 2836* 2848 2896 3178 

SPASTM 000212 2604 

SPWRAD 040636 32014 

SPWRDN 040476 626 32014 

SPWRMG 0632 32014 

SPWRUP 040550 32014 

SQUES 001222 2614 2897 3165 3192 

SRDCHR 036116 31654 3200 

SRDDEC= *«**xee% 

SRDLIN 036236 31654 3200 

DOCT= **xxex J 

$RDSZ = 000010 31654 

$REGAD 001160 2614 

$REGO 001162 seg)" $35" 3307 3308 3310 3311 3312 3313 3317 3323 3324 3325 3326 

SREG1 001164 2614 2897* 3307 3310 3311 3313 3319 3327 3330 3331 3332 3333 3337 

$REG2 001166 2614 2897* 3311 3313 3319 3320 3321 3322 3325 3330 3337 

$REGS 001170 2614 2897* 3316 3317 3321 3326 3332 

$REGS 001172 2614 2897* 314 315 3322 3323 3324 3325 3326 3336 

001174 2614 2897* 3313 3315 3316 3317 3318 

SRESRE 040232 31974 00 

SRTNAD 034126 28924 

SRTRN 034122 626* 2864 28874 

SR2A = wkewee 32 

SSAVRE 040174 31974 200 

SSAVR6 32014* 

SSCOPE 034136 626 28964 

SSETUP= 000137 2574 626 629 2896 2897 3165 3201 

$STUP = 177777 2574 

SSVLAD 034344 8 

$SSVPC = 204 2594 

$SWR = 177400 154 1 20 261 626 652 674 699 775 812 818 824 
830 843 898 919 945 988 1033 1077 1124 1170 1236 1315 1352 
1457 1464 1478 1533 1605 1697 1811 1926 2064 2102 2134 2183 
226 2433 2604 2755 2797 2896 2897 3201 


0 
$SWREG 001250 2614 626 


I 10 
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CJKDAC.P11 —-12=MAR=80 07:56 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0125 
: 20 2896 

$TBIT 034130 626* 2883" 28934  3201* 

STESTIN 001232 2614 2896s 

STIMES 001212 261# 626" 2834"  2896* 

$TKB. 001146 2614 3165 

$TKS 001144 261H  3165* 

$TMPO 001176 261# 1251" 1252* 12538 1319* 13208 1321% 1322* 1378" 1551" 1581 1617* 1647 
2002" 2009 ge0Be 24x 2218" «2221 2225* ©2226 2872+ «28775315 35205521 

$TMP1 001200 2614 1999 2011 2014* 2015 —2021* += 2026* += 2030* += 2031 

$TMP2 001202 2614 2003" 2012 2365* 2366 2392% 2393 2524 2525" 2559" 2561 2692 2693 
2719* 2720 3328 

STMP3 001204 2614 

$TMP4 001206 2614 

$TMPS 001210 2614 3178" 3179 3184 

$IN = 000050 164 (19 «6524 «= 6744 99H = 737H# 74h 775K 795s 12H 819 


8184 
8244 825 8304 831 8434 8984 9194 933 9454 9884 10334 1077# 11244 
1170 12364 13154 13524 1432 14574 14644 14784 15334 16054 16974 18114 19264 
1975H#@ = 20644 21024 21344 21834 22604 2405 24334 2575 26044 2732 27554 27978 


STPFLG 001157 2614 3192 
STPS 001150 2618 319 
STRAP 040410 626 32004 
STRAP2 040432 32004 
$STRP = 15 32004 
STRPAD 040444 32004 
STSTM 000210 2604 
STSTNM 001102 2614 2833* 2896* 2897 3181 
STTYIN 03651 31654 
STYPBN 037446 31944 3200 
$TYPDS 037750 31964 3200 
$TYPE 036 31924 3193 3200 
STYPEC 037130 3165 31924 
STYPEX 037176 31924 
STYPOC 037546 31954 3200 
STYPON 037562 31954 3200 
$TYPOS 037522 31954 3200 
SUNIT 001240 2614 
SUNITM 214 2604 
WR 001252 2614 
$XTSTR 034750 
SOFILL 037745 3195H* 
S4OCAT= *exene 8 2897 
° = 050177 2584 2594 2604 2614 6244 626 629# 28464 28544 28954 2896 2897 29844 
eames “ ee" 3192 31934 31964 31984 3201 32034 33034 
= x8wKeenke 


-$x = 000204 2604 
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CJKDAC.P11 12=MAR-80 07:56 CROSS REFERENCE TABLE == MACRO NAMES SEQ 0126 
ADDTST 1454 1251 1252 1253 1319 1320 1321 1322 
COMMEN 214 
ENDCOM 24 
ERROR 214 583 614 661 684 710 723 747 793 798 813 19 825 831 850 
859 871 880 905 923 930 934 953 965 996 100 104 105 1089 1101 
1180 1191 1202 1214 1251 125 125 127 1295 1319 1320 1321 1322 3 1444 
1459 1466 1490 1503 1553 1561 1569 1576 1619 1627 1635 1642 1722 1733 1740 
1752 1834 1845 1852 1864 1944 1984 1993 2017 2033 2042 82 2115 2141 2151 
2158 2228 2303 2308 2321 2333 2344 2356 2371 2384 3 2413 2448 24 
2499 2515 2533 2550 2569 2583 2631 2636 2649 2661 2672 84 2698 2711 2725 
2740 2765 2770 2781 2807 2814 3072 3086 3100 3114 
ESCAPE 214 
GETPRI 214 
GETSWR 214 6294 
MSG1 64 652 
MSG10 8214 824 
MSG11 8274 830 
MSG12 8334 843 
MSG13 8894 898 
MSG14 9124 919 
MSG15 9364 945 
MSG16 9804 
MSG17 10264 1033 
MSG2 6704 674 
MSG20 10704 1077 
SG21 11134 = 1124 
MSG21A 11614 1170 
G22 12208 1236 
MSG23 13044 1315 
MSG24 13254 1352 
MSG25 14544 1457 
MSG26 14614 1464 
MSG27 14694 1478 
G3 6934 699 
MSG30 15254 1533 
MSG31 15974 1605 
MSG32 16854 1697 
MSG33 1799# = =1811 
MSG34 19124 1926 
MSG35 19614 1975 
G36 20524 2064 
MSG36A 2 2102 
MSG37 21214 2134 
MSG4 7298 737 
MSG40 21684 2183 
MSG41 2249H% 2260 
MSG42 2422 2433 
MSG43 25934 
MSG44 27484 2755 
MSG45 27894 = =2797 
MSG5 7654 7 
MSG6 8094 812 
a! girs 818 
NEWTST Fal 652 674 699 737 775 812 818 824 830 843 898 919 945 988 
1033 1077 1124 1170 1236 1315 1352 1457 1464 1478 1533 1605 1697 1811 1926 


K 10 
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1975 2064 2102 2183 2260 2433 2604 2755 2797 
OM 214 6 


2134 
3160 3193 3196 3197 3201 
SH On 21a# = =33139 3193 3196 3197 3201 
REPORT Pall 
SAVR 624 2897 
SCOPE Pali 652 674 699 737 775 812 818 824 830 843 898 919 945 988 
1033 1077 1124 1170 1236 1315 1352 1457 1464 1478 1533 1605 1697 1811 1926 
1975 2064 2102 2134 2183 260 2433 2604 2755 2797 2832 
SETPRI 214 
SETTRA 32004 
SETUP 214 626 
SKIP Pall 744 795 813 819 825 831 933 1432 2405 2575 2732 
SLASH ola 
SPACE 214 
STARS Pat 259 260 261 563 570 591 598 652 674 699 737 752 763 775 
812 818 824 830 843 898 919 945 988 1033 1077 1124 1170 1236 1315 
1352 1457 1464 1478 1513 1523 1533 1605 1667 1682 1697 1811 1926 1975 2064 
2102 2134 2183 2241 2246 2260 2433 2604 2755 2797 2896 2897 2900 2990 2997 
3015 3025 3033 3054 3062 3123 3137 3165 3192 3193 3194 3195 3196 3197 
3198 3200 3201 
SWRSU 214 6264 
TIMMSG 834 812 818 824 830 
TIMTST 813 819 825 831 
TRMTRP 32004 
TYPBIN 214 2962 
TYPDEC 214 2956 3184 
YPNAM 214 629 
TYPNUM 214 
TYPOCS 214 
TYPOCT 214 2925 2950 3165 3182 
TYPTXT 214 
USER 414 261 
WMSG 1824 1457 1464 
WTST 2 1459 1466 
SSCMRE 2614 
SSCMT™M 2614 
SSESCA 214 
SSNEWT ow 652 674 73 775 812 818 824 830 843 898 919 945 988 
1033 1077 1124 1170 1236 1315 1352 1457 1464 1478 1533 1605 1697 1811 1926 
1975 2064 2102 2 2183 2260 2433 2604 2755 2797 
SSSET 32 
SSSETM 6264 
$SSSETU 6a 
S$SKIP ol# 744 795 813 819 825 831 933 1432 2405 2575 2732 
-EQUAT 94 21 
»HEADE oF 19 
-KT11 on 2 
. SETUP on 257 
. SWRHI on 20 
. SWRLO 204 
-$ACT1 10# 259 
.$APTB 134 2614 
.$APTH 134 260 
. SAPTY 134 3193 
$CATC 104 258 
SCMTA 104 261 


L_10 
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CJKDAC .P11 12-MAR-80 07:56 CROSS REFERENCE TABLE == MACRO NAMES 


ee a ca a a cae cd ce ce oe ead ccd 
MMWR Sw or 
Raaeneaenaeeen 


- ABS. 050177 


ERRORS DETECTED: 0 


CJKDAC .BIN, CJKDAC.LST/CRF=CJKDAC.P11 
RUN-TIME: 98 54 4 SECONDS 

RUN-TIME RATIO: 332/157=2.1 

CORE USED: 32k (63 PAGES) 





